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TITLE UETTTYSOO VAX/VMS UETP DEVICE TEST FOR TERMINALS 
“IDENT. 'V04-000' 
VENABLE SUPPRESSION 


—MARAAARARALARAAAASLARALALALARAARRRASERER ASE EAAA RR SAA SELES SARE SESS SEER SERS A AS S S 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
** cd 
:* ® 
*® ® 
*?*® ® 
;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
>* ONLY IN ACCORDANCE WITH T TER F SUCH LICENSE AND WITH THE * 
;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. ® 
**® ® 
*® ® 
*® * 
**® *® 
*® ® 
*® a 
-* ® 
-* * 
-f* ® 
-* * 


;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS wit Y FOR THE USE OR RELIABILITY OF ITS 


I T 
SOFTWARE ON EQUIPMENT WHICH NOT SUPPLIED BY DIGITAL. 


-LARRRBRARAASASASALASLA LALA ALESASASERSERASESARERELAR RAR RR RR RARRRASRRRRR AAAS SSS 
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v03-008 RNHOO07 Richard N. Holstein, 15-Feb-1984 
Take advantage of new UETP message codes. Fix SSERROR 
interaction with RMS_ERROR. 


v03-007 RNHOO06 Richard N. Holstein, 19-Dec-1983 


NOUS WN 0 OD NAUE WIN 0 OD NOAM WIN  O ODA UE WWD) 3 0 ODN EWI SH OOWONOUE Win 


PUPP Be EB BB EB ANNI ANI NII NIP PONPONPONINPINPINONPYDY 2 PS PO es es es es es 


p++ 
; FACILITY: 
; This module will be distributed with VAX/VMS under the CSYSTESTJ 
Py account. 
> ABSTRACT: 
; This program tests terminal devices etc. 
> ENVIRONMENT: 
$ This preyres will run in user access mode, with interrupts enabied 
; at all times. This program requires the following privileges and 
: quotas: 
00 ; 
; AUTHOR: Larry D. Jones, CREATION DATE: January, 1981 
6 : MODIFIED BY: 
00 ; V03-009 RNHO008 Richard N. Holstein, 01-May-1984 | 
00 ; Fix so that CTRL/C really stops the test when run in loop mode. 
0 3 Fix to preserve R3 across MOVC5. Fix to prevent RMS invalid 
3 : RAB when run in Loop mode. 
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SOOooooeooo 


N 2 
VETTTYSOO VAX/VMS UETP DEVICE TEST FOR TERMINALS 16-SEP-1984 8) 36:08 yeeene Macro hrs 
v04-0 “SEP=1984 04:26:4 UETP.SRCJUETTTYSOO.MAR; 1 


Give correct sentinels to Test Controller. 


Page (| 


18 
V03-006 RNHOO0S Richard N. Holstein, 11-Nov-1983 
Use decimal conversion routine for unit numbers. 18 
V03=-005 RNHOO04 Richard N. Holstein, 11-Mar-1983 1B 
Don't signal ending message in EXIT_HANDLER. 62 
V03=004 RNHOOO3 Richard N. Holstein, 28-F eb-1983 76 
Allow for longer device names. 68 
v03-003 LDJ0004 Larry D. Jones, 26-F eb-1983 7C¢ 
Added generic support for ANSI standard terminals. $e 
v03-002 RNHOO02 Richard N. Holstein 15-0c¢ t-1982 
Miscellaneous fixes Listed in the V3B UETP Workplan. $8 
v03-001 LDJ0003 arte D. Jones, 17-Jun-1982 
Fixed VT100 on Line 5 exceeded quota bug. 
V02-006 RNPOO03 Robert N. Perron, 22-Jan-1982 


Added watchdog timer to prevent test from hanging if we 
get a hung device. 


| 
v02-005 RNPOOO2 Robert N. Perron, 31-Dec-1981 
thee problem with terminals that have network Logical 
inks. 


v02-004 RNPOOO1 Robert N. Perron, 23-Dec-1981 
Added two second pause after each page of output to give 
other device tests a chance to run. 


V02-003 RNHOOO1 Richard N. Holstein, 09-0c t-1981 
Use secondary device characteristics to get around problems 
when a device is spooled. Don't test spooled devices. 


v02-002 LDJ0002 Larcy D. Jqnes, g3-Sen- 196) 
Added support for LA34, LA38, VT101, VT102 and VT131. Fixed 
roblem with eveopt ing att Lines on one unsupported terminal. 


ixed problem with VT100 one shot mode leaving terminal char. 


set wrong. 
vO2-001 LOJ0001 = Larry D. Jones, _ 22-Sep-1981 
Fixed possible hang problem when running UETP from other than 


the console. 
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19? -SBTTL Declarations 
108 ; INCLUDE FILES: | 
000 110; SYSSLIBRARY:LIB.MLB for general definitions 
444 BF 3 SHRLIBS:UETP.MLB for UETP definitions 
$50 118 : 
000 114 ; MACROS: 
0000 115; : 
44 138 SCHFDEF ; Condition handler frame definitions 
Be8 11 SOCDEF ; Device characteristics definitions 
000 118 SDEVDEF ; Device definitions 
444 119 SDIBDEF ; Device Information Block 
0000 120 SOVIDEF ; SGETDVI ITMLST item codes 
0000 121 SSECDEF : Section definitions 
0000. = 1 ¢ SSHRDEF ; Shared messages 
0000 «(1 SSSDEF ; System Service status codes 
0000 124 SSTSDEF ; Status return 
0000 125 STIDEF ; Terminal definitions 
0000 126 STT2DEF ; Extended terminal definitions 
0000 127 SUE TUNTDEF ; UETP unit block offset definitions 
0000 128 SUETPDEF ; UETP 
M000 3=6129 ; 
0000 130 ; 
0000 131 -MACRO TERMINAL, TERM_NAME CLASS, TYPE ,PREAMBLE, TERM_DATA,HEAD_LEN } 
0000 13 qe oe : of terminal type table 
0000 1 “BYTE _CLASS,TYPE.HEAD_LEN ; TERM_NAME 
0000 13 -ADDRESS PC2... ; ASCIC name address | 
0000 135 ADDRESS PREAMBLE ; ASCIC preamble address 
000 136 -ADDRESS TERM_DATA ; ASCID terminal specific data address | 
000 137 ee 3; bump to the next address 
0000 138 -=PC2... > point to the next ASCIC msg 
0000 139 ; make it's label and function ID 
0000 140 TERM_NAME: 
0000 141 .ASCIC /TERM_NAME / 
0000 136 ee ; update the string PC 
0000 14 ~ENDM TERMINAL 
0000 8144 ; 
0000 145 ; EQUATED SYMBOLS: 
0000 138 ; ‘ : 
0000 147; #2Facility number definitions: 
00000001 0000 1s3 RMS$S_FACILITY = 1 
000 150 ; SHR message definitions: 
Ley + 151 UETP = UETPS_FACILITY@STS$V_FAC_NO ; Define the UETP facility code 
00741 3 0 13 UETP$_ABENDD”= UETP!SHRS_ABENDD”; Define the UETP message codes 
bora} 000 8615 UETPS_BEGIND = UETP!SHR$_BEGIND 
74108 0 154 UETPS_ENDEDD = UETP!SHRS$_ENDEDD 
00741 9 155 UETPS"OPENIN = UETP! SHRS-OPENIN 
74113 138 UETPS_TEXT = UETP!SHRS_TEXT 
000 15 
e 138 : = Internal flog bits... 
1 15 TEST_OVERV ; Set when test is over 
; 160 SAFE_TO_UPDV = § ; Set if it's safe to update VETINIDEV 
0 161 SELF-TESTV == ; Set when only user terminal is tested 
04 0000 162 BEGIR_MSGV = 4 ; Set if ‘BEGIN’ 


| 
| 
msg has been printed 


es ee 
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0000005 98 163 SCROL_CLRV = 5 ; Set when a scroll area is defined 
BOR oRe 0 164 TIMOUT_ERRV = § ; Set if watch dog timer goes off 
060000 4 199 CTRLC_SEENV = ; Set if test gets CTRL/C AST 
+4 189 ; .. and Serr gegend snp masks: 
00000002 0000 168 TEST_OVER = TAaTEST_OVERV 
aie aia 444 18? SAFE_TO_UPDM = 1@SAFE_TO_UPDV 
000000 000 170 SELF-TESTM = 1aSELF-TESTV 
0000001 000 171 BEGIN_MSGM = 1aBEGIR_MSGV 
0000002 000 Vee SCROL_CLRM = 1@SCROL_CLRV 
00000040 0000 17 TIMOUT_ERRM = 1aTIMOUT_ERRV 
00000080 9008 1g CTRLC_SEENM = 1@CTRLC_SEENV 
0000 178 ; Miscetlany: 
seats 0000 17 LC_BITM = *x20 ; Mask to convert lower case to upper 
000000 0000 178 REC_SIZE z 0 > UETINIDEV.DAT record size 
00000084 0000 179 TEXT_BUFFER = 132 : Internal text buffer size 
00000004 0000 180 EFN2 = 4 ; EFN used for three minute timer 
00000003 0000 £181 SS_SYNCH_EFN = 3 ; Synch miscellaneous system services 
Q000000A 0000 186 MAX_DEV_BESIG = 10 ; Longest possible controller name 
00000005 0000 18 MAX_UNIT_DESIG= 5 ; Maximum unit number Length 
00000 0000 3=—s-«1184 CR = *XD ; Carriage return 
QOO0000A 0000 185 LF = “XA 3; Line feed 
00000018 0000 186 ESC = 27 ; Escape 
0000000C 0000 187 FF =z 12 ; Form feed 
00000015 0000 188 TERM_TYPE CNT = 19 ; Number of terminal types known now 
00000007 0000 189 MAX_RAME_SIZE = 7 ; Maximum terminal name size 
QOOO000F 0000 190 MAX_PROC_ NAME = 15 ; Maximum process name size 
00000100 0000 191 HDR_OUT SIZE = 996 ; Maximum header output size 
00000007 0000 13 SPL_UNITV = ; UETUNTSB_FLAG bit if unit is spooled 
00000080 Boog it SPL_UNITM = 1@SPL_UNITV 
0000 195 ; The following definitions are set depending on the device under test. 
0000 196; Their names should not change because they are used in size calculations 
0000 197 ; im the executable code. TSD_SIZE should be made at least as large as the 
444 Hs 3 largest terminal specific data size for any terminal in the test. 
0000 200 - i : 
00000101 0000 01 WRITE SIZE = 257 ; Size of device write buffer 
00000600 944 8 TSD_STZE = 1536 ; Size of device header buffer(3 pages) 
0000 04; Device dependent definitions 
000001A4 0000 05 UETUNTSB_LINE = UETUNTSC_DEVDEP ; Current Line number 
000001A5 0000 8S UETUNT$B_HD_LEN = UETUNTS$B_LINE+1 ; Header Length in Lines 
BPR AS 000 UETUNTSB_LERGTH = UETUNTSB_HD LEN+1 ; Page lengt 
OOOO01A 000 08 UETUNTSW_WIDTH = UETUNTSB_LENGTH+1 ; Page width 
000001AB 0000 09 UETUNTSL_CURHDR = UETUNTSW_WIDTH+4 ; Current position in the TSD 
OOOOO1AF 0000 10 UETUNTSK_CCTBL = UETUNTSL_CURHDR+4 ; Carriage control size table addr 
B98 0187 4 11 UETUNTSK_WRITE = US TUT ee ace TeL oS : Terminal write buffer 
0288 Ie UETUNTSK"HEADER = YETUNTSKWRITE* 57 : Header buffer 
0000000 00 1 UETUNTS$V_2PL = ; 2 page Limit flag 
00000004 900 1 UETUNTSM~2PL = _-1@UETUNTSV_2PL 
00000013 4 18 DEVDEP_SIZE = <UETUNTSK_WRITE-- __ ; 
4 7 UETUNTSC_INDSIZ> ; Size of device dependent part of UETUNT 
$0 19 PAGES = <<UETUNTSC_INDSIZ+- ; Add together all of the pieces... 
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§ -SBTTL Read-Only Data 

~PSECT RODATA,N EXE .NOWRT, PAGE 


: tne ates ; Process name on exit 
ASCID /SYSTEST/ 


TEST_NAME : ; This test name 
eASCID /UETTTYSOO/ 


SUPDEV ae SEC: 3; How we access UETSUPDEV.DAT 
50 55 53 54 45 55 00000028"010E0000" ASCID /UETSUPDEV/ eR comes 
56 45 44 
CONTROLLER: ; Logical name of controller 
41 4E 4C 52 54 43 wisetatansnttlichien | i »ASCID /CTRLNAME/ 
MODE: ; Run mode logical name 


45 44 4F 4D 00000049'010E0000' -ASCID /MODE/ 


NO_RMS_AST_TABLE: List of errors for which.. 
-LONG §R 


00C00000' G MS$_BLN : .eRMS cannot deliver an AST. 
00000000' -LONG RMS$_BUSY : ...even if one has an ERR= arg 
00000000' «LONG RMS$_CDA ; Note that _we can search table... 
00000000' -LONG RMS$_FAB ; «eevia MATCHC since <31:16>, 
00000000" -LONG RMS$_RAB : lilpattern can't be in <15:0> 
00000014 NRAT_LENGTH = .-NO_RAS_AST_TABLE 


SYSSINPUT: ; Name of device from which... 


4E 49 24 53 59 53 vocal tig 


eASCID /SYSSINPUT/ i ee 


INPUT_ITMLST 
.WOR 


-the test can be aborted 


: SGETDVI arg List for SYSSINPUT 


0020 0040 D 64,DV1$_DEVN ; We need the equivalence name 
0000000C 00000014" LONG BUF FPER BUFFER. PTR 
00000000 LONG 0 ; Terminate the List 
TERM_ITMLST ; SGETDVI arg List for terminal 
001C 0004 -WORD 4,DVIS_DEVDEPEND2 3 We need the extended term. char. 
00000000 00000251' “LONG XTERM_CHAR,O 
00000000 LONG 0 ; Terminate the ‘ist 
0 CS1: ; Device class and type control string 
21 20 42 58 32 21 oonoDo gh? 10EDRS" 0 eASCID /!2XB !2XB / 
20 42 58 3 0 
0 CS3: ; Device class-only control string 
A eASCID /!'2XB e*/ 


2A 20 42 58 32 21 ecncrpaane Dedenanan * € 


$15 78 95 $8 $1 gumeeog-arogony 
43 2F 4C 52 54 43 20 
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7 
0 72 6F 72 72 45 0000027A'010E0000' fe -ASCID /Error updatin UETINIDEY. DA 
2 78 ss 58 tS be 69 eee thd her “tach. 
4 41 44 2E 56 45 44 49 GE 49 § ‘ 
97 Re THREEMIN ; 3 minute delta time 
FFFFFFFF 94B62E00 af $ -LONG -10*1000*1000*180,-1 
GF 4 TWOMIN: ; 2 minute delta time 
FFFFFFFF 88797400 8 1 14 -LONG =10*1000*1000*120,-1 
8 A7 11 FIVESEC: ; 5 second delta time 
FEFFFFFF FDOSOF8O 8 “4 \¢ -LONG -10*1000*1000*5,-1 
O2AF 14 TWOSEC: 3 2 seconds delta time 
FFFFFFFF FECED300 8 “4 1? -LONG -10*1000*1000*2,-1 
00000005 8 44 7 UNIT_DESC: . 8 ; Descriptor used to convert unit # 
0000001A" 0288 19 -ADDRESS BUFFER+6 
O2BF 32 CONT_DESC: ; Descriptor used to convert controller... 
0000 0028 O2BF g WORD REC_SIZE,0 i; «+efrom lowercase to uppercase 
00000014" 8 C3 $7 “ADDRESS BUFFER 
02C7 $3 FILE: ; Fills im RMS_ERR_STRING 
65 6C 69 66 000002CF'010E0000' osc? 2 -ASCID /file/ 
0 DS 8 RECORD: ; Fills im RMS_ERR_STRING 
64 72 6F 63 65 72 000002DB'010E0000' 8 Ds 4 eASCIO /record/ 
O2E1 331 RMS_ERR_STRING: : ;_ Announces an RMS error 
41 21 20 53 4D 52 000 9269°01 06 9000" Q2E1 332 -ASCID /RMS 'AS error in file !AD/ 
66 20 6€ 69 20 72 6F 72 72 65 20 5 8 EF 
44 41 21 20 65 6C 69 9 68 33 
0308 334 HUNG_ TERMINAL : 
59 54 54 54 45 55 09000594" 91 050000" 030 5 -ASCID /UETTTYSOO test is hung! / 
20 73 69 20 74 73 65 74 20 30 30 53 0310 
21 67 6E 75 68 baie 3 
03 1 337 NOSPOOLED: e found a apeetes device 
65 6C 62 61 6E 55 09000529" 2105 0009" 1 38 -ASCID /Unable to test !AS EES Ag it is spooled./ 
53 41 21 $8 74 a $2 74 9 6F 74 $8 ; é 
20 74 69 20 65 73 75 61 63 65 $¢ 
2E 64 65 6C 6F 6F 70 73 20 73 69 $0 39 
33 40 SIZE_TBL: ; table of output record sizes 
$000 5 41 WORD 3; line size added in Later 
oR ie Be 
$601 228 44 “WORD 1 
00000008 2A $2 SIZE_TBL_LEN=.-SIZE_TBL 
5A “$ DATA_ BUF: ; 256 bytes of all printable characters 
00000021 SA rt: A=*A/'/ 
SA 4 REPT 94 
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Read-Only Dat 
A 
A 
4 A 
00000021 ; 


B 
00000031 vats 


> 
5 
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v04-000 Read-Only Data ~SEP-1984 04:26:4 UETP.SRCJUETTTYSOO.MAR; 1 (4) | 


rr 66 3 
" rs ° ; Carriage control longword format. 
tee e P ¢ewwroceeaosc= Geeeeececeoentaoceececoaunt}a eae wwe ae + 
45A 0 ; ! postfix ! prefix H ; data Type: Fortran ! 
45A 71 3 + oeeeeeceeoe= oe weveeseceeee}+ooeceoeococoef¢owoen« coon} 
45A fe i : 
045A 7 
45a 37% Ec _TBL: 
00 01 01 00 045A 75 -BYTE 0,1,1,0 ; Prefix newline PosDfix null 
01 01 01 00 045 76 -BYTE 0Q,1,1,1 : Prefix-Postfix newline 
89 88 ¢ 8 46 77 BYTE 8 -# 000 ; Prefix-Postfix null 
1 00 0 046 78 BYTE at ated ; Prefix null Postfix newline 
00 8D 8g 00 046A 79 -BYTE oh ; Prefix 7 bit Postfix null 
00 cD 0 8 Be95 80 -BYTE 0,2,*XCD,0 ; Prefix : bit Postfix null 
01 8D 01 00 Bee 81 -BYTE 0,1,*X8D,1 ; Prefix 7 bit Postfix newline 
01 CD 01 00 0476 Hf -BYTE 0Q,1,*XCO,1 ; Prefix 8 bit Postfix newline 
80 00 01 00 047A 38 ‘BYTE 0.10. 2x80 : Prefix null Postfix 7 bit 
8D 01 83 00 Bees 84 BYTE +321, "X8D ; Prefix newline Postfix 7 bit 
8D 8D 03 00 048 85 -BYTE 0,5,°X8D,“X8D ; Prefix 7 bit Postfix 7 bit 
8D CD 03 00 0486 86 -BYTE 0,3,*XCD,*X8D ; Prefix 8 bit Postfix 7 bit 
CD 00 01 00 O48A 87 «BYTE 0,1,0,*XCD : Prefix null Postfix 8 bit 
CD 01 03 00 Beas 88 BYTE Bear gnce ; Prefix newline Postfix 8 bit 
CD 8D 03 00 049 89 -BYTE 0,3,*X8D,*XCD ; Prefix 7 bit Postfix 8 bit 
CD CD 02 00 0496 90 -BYTE 0,2,*XCD,*XCD ; Prefix 8 bit Postfix 8 bit 
00 00 01 00 O49A $3) -BYTE 0,1,0,0 3 Prefix-Postfix null 
00000011 O49E 3¢ CC_TBL_SIZE ="<.-CC_TBL>/4 
049E 392 ; The following ee age a the device class and type of all devices supported 
049E $9 ; by this test. or. new devices must be added to this table or the device will 
049E 96 ; be tested as a DTIS_TTYUNKN. The only other information that has to be syept ed 
049E 397 ; to this program to test a new device is any device specific data. (See below) 
049E $95 ; The table contains a byte for the device class, a byte for the device type. and 
049E 99 ; an address of a device descriptor for the device specific data or zero if none 
049E 400 ; exists. 
049E 401; 
049E ref 
049E 403 TERM_NAMES: 
00000523 Bed tRe -BLKB TERM_TYPE_CNT*MAX_NAME_SIZE ; number of terminal macros * max by 
00000523 $3 406 Ci ce 8% 
0000049E 05 407 PC2... = TERM_NAMES 
05 408 TESDEV_TBL: 
0000064 B3 409 -BLKB = 15*TERM_TYPE_CNT ; Allocate space for each macro 
0000064 640 410 SAVE_PC... = 
0. 411 TERMINA VT100,0¢$ _TERM,DT$_VT100,VT100 at rte VT100 =pATA. 0 
alg TERMINAL VT101.DC$_TERM.DT$_VT101.VT100-PREAMBLE.VT100-DATA,O 
41 TERMINAL VT1 gD S. oh a 25 A A O-PREAMBLE .VI1007D ATA‘O 
414 TERMINAL VT125,D0C$_TERM,DT$_VT125,VT1 ad re et TA,0 
415 TERMINAL V1T151,0C$_TERM,DT$_VT131,VT1 Mater Ee 0_DATA,0 
$18 TERMINAL VT152,D0C$_TERM,DT$-VT132 yy PREAMBLE grey DATA,0 
41 TERMINAL VT52,0C$_TERM,OT$_UT52 vt 2 PREAMBLE .VT52_DATA,4 
418 TERMINAL LA120,DCS_TERM,DTS_LA100,FORM_FEED,LA120_ DATA, 2 
41 TERMINAL LA34,0C$_TERM,OTS_CA34,FORM_FEED,LA36_DATA, 
420 TERMINAL LA36,DC$~TERM, DT$_LA36,FORM_FEED,LA S-DATA, 
421 TERMINAL LA -dC$_ TERM, DT$_ LA38,FORM_FEED,LA 6 DATA 
422 TERMINAL VT55.DC$~TERM,DT$_V155.V152_PREAMBLE ,0T52_DATA,2 


6 te ae Macro hs 
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-PREAMBLE .VT52_DATA, 
“PREAMBLE ,VTO5_DATA, 
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000005F 5 


NKN, FORM FEED UNKN_DATA,2 
RM FEED cal O’DATAs2 
_FEED,LA11_DATA, 
EED,LP11~DATA, 
D,LAX_DATA,2 
. = SAVE eee 
TESDEV_TBL_END = . 
-ALIGN LONG 


PC 


The following is device specific data. To add data of this type do the following: 


iF Create an ASCIC string for the terminal data to be printed before 
the header (PREAMBLE). 


} 
| 
| 
| 
| 
2. Create a string descriptor for the data. 


SPH FAWN NWIwionororonsporners 


5. Enter the terminal data and update the TSD_SIZE constant if the 
_ terete specitic data size is larger than the current value 
or % ° 


4. Enter the terminal information in the above table 


; Terminal specific data for the VT100 terminal 


DARPA A AA AA AA AA ARAM & EIN & 


VT100_DATA: 

.LONG _VT100L 

TADDRESS VT100_OUT_DATA 
VT100_PREAMBLE : 


: Set-up and header Line 


WO9O9Od F&F OOOO OCCOCOCCOCOCOCOCCOCCOCOCOOOO NWN OWING O 


OOOCCCOCCOCOCOCCOCCOCCOOOCOCOCOOOOOOCOOOOCOCOOoOO 
PPL LLL LLL ES 


PAAAAAMOS 


VT100_PRE_LEN 
<ESC>77/ 
<ESC>/</ ; Enter ANSI mode 


E 
| ; Save attributes 

H <ESC>/C2d/ ; Clear the screen 
0 | 
TK 


o-o—  O 
ow moowmm 
J 


<ESC>/01;1H/ ; Go home 
PRE_LEN = .-VT100_PREAMBLE~1 
~RSCIL <ESC>/CO;1q/ = ;-: LED 1 
eASCII] <ESC>/CO;1m/ ; Set bold | 
| 


: Set-up double height and double width Line modes 


2 
oS 
PAAAAAA AAO 
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/ ; Double height top 
; Next Line. 
; Double height bottom 

; Next Line 
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Read-Only Data 
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VT100_OR 


ASCII 
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ASCII 
ASCII 
ASCII 
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ESC>/CIA/<ESC>/C0;1;3q/<ESC>/C0; 1; 5m89! av$2z*/ 


; No LEDs 

; Set scroll to 12 thru 24 

; Go to scroll area 

; Reset attributes 

; Reset to USASCII 

i Restore cursor and attributes 


_OUT_DAT 


OL: ; Return 
ESC>/L0; 24r/<ESC>/E2321H/ 


.-VT100_ORIG_SCROL 


to full screen scroll 


: Terminal specific data for the VT52 terminal 
VT52_DATA: 


.-VT52_PREAMBLE=1- 


>/F/ ; Enter graphics mode 
Sotehijhtunval ae 


<ESC>//<34><53>/~ /<ESC>/D/<ESC>/D}/ 
<ESC>/D/<ESC>/Di /<ESC>/D/<ESC>/D{/<ESC>/D/<ESC>/Dz/ 


<ESC>/D/<ESC>/Dy/<ESC>/D/<ESC>/Dx/<ESC>/D/<ESC>/Dw/ 
<ESC>/D/<ESC>/Dv/<ESC>/D/<ESC>/Du/<ESC>/D/<ESC>/Dt/ 
<ESC>/D/<ESC>/Dk/<ESC>/D/<ESC>/Dj/<ESC>/D/<ESC>/Di/ 
<ESC>/D/<ESC>/Dh/<ESC>/D/<ESC>/Dg/<ESC>/D/<ESC>/Df/ 
<ESC>/D/<ESC>/De/<ESC>/D/<ESC>/Dd/<ESC>/D/<ESC>/Dc/ 
<ESC>/D/<ESC>/Db/<ESC>/D/<ESC>/Da/<ESC>/Y¥/<33><54> 
/L/<ESC>/D/<ESC>/Bs/<ESC>/Am/<ESC>/D/<ESC>/Br/ 
<ESC>/An/<ESC>/B/<ESC>/Dq/<ESC>/Ao/<ESC>/B/<ESC>/Dp/ 
<ESC>/Ap/<ESC>/B/<ESC>/Do/<ESC>/Aq/<ESC>/B/<ESC>/Dn/ 
<ESC>/Ar/<ESC>/B/<ESC>/Dm/<ESC>/As/<ESC>/B/<ESC>/DL/ 


sh - . -- 


N 3 | 
VETTTYSOO VAX/VMS UETP DEVICE TEST FOR TERMINALS 16-SEP-1984 01:36:0 AX/VMS Macro V04-00 15 
v04-000 Read-Oniy Data mitt y 87:38:28 YOETP. SRC CEST YySOO MAR: 1 “— (2) 
6C 44 18 42 0817 | 
1B 71 41 1B 6D 44 1B 42 ph if 44 18 B38 608 ASCII] <ESC>/Ar/<ESC>/B/<ESC>/Dm/<ESC>/Aq/<ESC>/B/<ESC>/Dn/ | 
1B 6F 41 1B 6F 44 1B 42 8 ty B 18 8 609 eASCII <ESC>/Ap/<ESC>/B/<ESC>/Do/<ESC>/Ao/<ESC>/B/<ESC>/Dp/ | 
1B 6D 41 1B 71 44 1B 42 18 of af 18 Be 610 ASCII <ESC>/An/<ESC>/B/<ESC>/Dq/<ESC>/Am/<ESC>/B/<ESC>/Dr/ | 
62 61 41 1B 73 44 1B 42 1B 6C 41 1 B4 611 ASCII <ESC>/AL/<ESC>/B/<ESC>/Ds/<ESC>/A 1}* 
oe St St a8 eh rt} 8 25 be es 64 63 +t E L/<E B/<ESC>/Ds/<ESC>/Aabcdefghijktuvwxyz{i}7/ 
65 6f a8 65 (8 ig 3 es 1 +t 612 ASCII <ESC>/Y/<34><69>/abcdefaghijk Ci}°/<ESC>/A fghi 
a ><69> 1}"/<ESC> t 
93 98 97 9% $} 32 és éh 63 087 abcdefghijktuvwxyz abcdefghijktuvwxyz{i} 
65 64 63 62 gt 41 18 7E 7D 0B83 
79 78 77 76 75 74 6B re $9 4 
65 64 63 62 61 5B 22 59 1B OB9D 613 eASCII <ESC>/Y/<34><91>/ faghijk i}°/ 
$2 $2 $3 $¢ $1 of ge i 3 OBA? E 3 abcdefghijktuvwxyz{i} 
OA 0D 47 18 OBB? 614 ASCII <ESC>/G/<CR><LF> : Exit hi d 
00000168 0888 15 VT82L = .=VT52_OUT_DATA sas , toast ate is 
OBBB 617 : Terminal specific data for the VT0S terminal 
OBBB C4618 ; 
0OBBB 619 VTOS_PREAMBLE: 
05" 0BBB 620 .BYTE VTOS_PRE_LEN 
1F 00 00 00 1D OBBC 621 -BYTE 29,0,0,0731 
00000005 O0BC1 6 é VTO5_PRE_LEN = .-VTOS_PREAMBLE-1 
OBci | 
QBC1 624 VTOS5_DATA: 
00000000 O0BC1 625 . LON 0 ; There is no VT05 terminal specific data 
000008C1' pace ° $ -ADDRESS VTOS_DATA 
pace ° 3 : Terminal specific data for the LA120 terminal | 
0BC9 630 LA120_DATA: 
00000000 O0BC9 631 Ll 0 : There is no LA120 terminal specific data | 
00000B8C9" Beco O36 -ADDRESS LA120_DATA | 
0BD1 634 > Terminal specific data for the LA36 terminal | 
OBD1 635; 
D1 636 LA36_DATA: 
00000000 D1 4 637 » LON 0 ; There is no LA36 terminal specific data 
00000801" OBD> 638 ADDRESS LA36_DATA | 
de0$ 646 : Terminal specific data for the LA180 terminal 
D9 648 LA180_DATA: 
00000000 D9 64 .LON 0 3 There is no LA180 terminal specific data | 
000008D9' 44 eee eADDRESS LA180_DATA 
E1 646 : Terminal specific data for the LA11 terminal 
OBE1 647 ; 
E1648 LAI1_DATA: : | 
8800009 E1 64 -LONG 0 ; There is no LA11 terminal specific data 
0000BE1' +f) 229 «ADDRESS LA11_DATA | 
E9 652 ; Terminal specific data for the an UNKNOWN terminal | 


B 4 
TTTYSOO VAX/VMS UETP DEVICE TEST FOR TERMINALS 16-SEP-1984 01:36:0 AX/VMS Macro v04-00 Page 16 
yO4~0 Read-Only Data g- ei obe 4:30:98 LUETP SRC GETTY S00 MAR: 1 (4) 
BFS 3 Z UNKN PREAMBLE 
00 OBE9 655 ~ BYTE. 
BEA 228 
EA 657 UNKN_DATA: 
444444 BEA O28 -LONG 0 ; There is no UNKNOWN terminal 
00000B¢9" 028 «ADDRESS LA120_DATA ; specific data 
as 90) ; Terminal specific data for the LP11 terminal 
0000000 OBF ees wibncente 0 There i LP11 terminal ific d 
. ; There is no rmina ata 
Bo000Rr Oar 668 “ADDRESS LP11_DATA . yeahs 
OBFA 66 : Terminal specific data for the LAX terminal 
OBFA 668 ; 
OBFA 669 LAX_DATA: 
00000000 OBFA 670 - LON 0 ; There is no LAX terminal specific data 
OOOO0BFA' OBFE 671 -ADDRESS LAX_DATA 
0cO ore FORM_FEED: 
01 O0CO 67 BYTE 7 ; Form feed ASCIC string 
0c OCcOo 674 BYTE FF 
0C06 86675 
0C04 676 CRLF: ; Carriage return and Line feed 
OA OD OCO04 677 -BYTE CR,LF 
0C06 678 LFCR: ; Line feed and Carriage return 
OD OA OC06 679 -BYTE LF,CR 


ue gyn cg GSS SES PSS SS SSS Sg ES POSS 


J 


C 4 
UVETTTYSOO VAX/VMS UETP DEVICE TEST FOR TERMINALS met tat h 9 9) 36:06 ee: Macro V04- 90 Page 
v04=-000 Read/Write Data “SEP=1984 04:26:4 UETP.SRCJUETTTYSOO.MAR; 1 
co 681 -SBTTL Read/Write Data 
on i ~-PSECT RWDATA,WRT,NOEX 
0 684 TTCHAN: ; Channel associated with ctrl. term. 
0000 009 685 .WORD 0 - 
000 6 $ FLAG: ; Miscellaneous flag bits 
0000 44 3 WORD 0 ; (See Equated Symbols tor definitions) 
00 690 FAO_BUF : ; FAO output string descriptor 
0000 0084 000 691 «WORD TEXT_BUFFER,0O 
00000014" 4 $36 -ADDRESS BUFFER 
00 694 BUFFER_PTR: 3 pene -ASCID buffer for misc. strings 
0000 NAe% 900 695 «WORD TEXT _BUFFER,0O : A word for length, a word for desc. 
v0000074' 83) $38 -ADDRESS BUFFER 
001 698 BUFFER: ; FAO output and other misc. buffer 
00000098 id 44 -BLKB TEXT_BUFFER 
009 701 DEVDSC: ; Device name descriptor 
0000 000A 009 Ie -WORD MAX_DEV_DESIG,0 
00000087" 4 At -ADDRESS DEV_NAME 
OO0A 705 PROCESS_NAME: ; Process name 
53 59 54 54 000000A8'010E0000" O0A 706 -ASCID /TTYS/ 
0000000B Q0A 707 PROCESS -NAME_FREE = MAX_PROC_NAME=<.=-8=-PROCESS_NAME> 
00000087 Roa £8 -BLKB “PROCESS_NAME_FREE 
0B 710 DEV_NAME: Device name buffer 
000000C6 00B 711 So ae MAX_DEV 7 * tea UNIT _pésiG 
0000000F re NAME_LEN = .-DEU_N 
714 DATA_DSC: ; Descriptor for STRSUPCASE 
00000101 715 -LONG WRITE_SIZE 
00000000" 716 -ADDRESS 0 : 
717 DIB: : Device Information Block 
0000 09074 718 -WORD DIBSK_LENGTH,0O 
00060006" 719 -ADDRESS DIBBOF 
720 DIBBUF: 
0000014A 4 1 -BLKB ODIBSK_LENGTH 
7 : DIB_SEC: ; Device Information Block (secondary) 
000 89 074 A 726 «WORD DIBSK_LENGTH,0 
00000152" 725 “ADDRESS DIBBOF SEC 
7? § DIBBUF SEC: 
0000016 £ 4 f -BLKB DIBSK_LENGTH 
6 729 ERROR_COUNT: ; Cumulative error count at runtime 
00000000 ° 4 9 -LONG 0 
A 7? ¢ STATUS: ; Status value on program exit 
00000000 ‘ 4 ? -LONG 0 
E 735 QUAD_STATUS: ; 10 status block for misc sys. svcs. 
C0000000 00000000 ; 4 § -QUAD 0 


dD 4 
VAX/VMS UETP DEVICE TEST FOR TERMINALS i EP mt BS ie 30: 96 re ae cro V04- 
SEP=1984 6:4 


0 
Read/Write Data ~ 4: UETP.SRC Coe Hoe oge MAR; 1 (5) 


Page 8 | 


1D INADDRESS: ; SCRMPSC add t 
00000000 00000000 1pe 938 LONG 0,0 eso 
1DE oo OUTADDRESS: 
00000000 00000000 15 fe) ONG 0,0 
1E6 28 UNIT_NUMBER: ; Current dev unit number 
0000 Ste Se: «WORD 0 
1E £8 DEVNAM_LEN: ; Current device name Length 
0000 iss ee «WORD 0 
BiEA 749 RANDOM1: ; Random word #1 
AAAAAAAA Ries ey LONG *“XAAAAAAAA 
O1EE £36 RANDOM2: ; Random word #2 
A72EA72E 43 P37 «LONG “XA72EA72E 
git 755 ITERATION: ; # of times all tests were executed 
00009000 girs £36 -LONG 0 
O1F6 758 MSG_BLOCK: ; Auxiliary SGETMSG info 
OOOOODIFA nine £22 -BLKB 4 
O1FA 761 PASS: ; Pass count 
00000000 Ha 66 -LONG 0 
00000000 pire ee EXIT_DESC: 0 ; Exit handler descriptor 
00000E15° 0208 766 [ADDRESS EXIT_HANDLER 
00000001 0206 767 » 
000001CA" Bsoa be ADDRESS STATUS 
O20E 770 ARG_COUNT: ; Argument counter used by ERROR_EXIT 
00000000 Bs 4g -LONG 0 
os! ae RMSRUNDWN_BUF : ; Return buf for RMSRUNDWN close failures 
0000 0016 021 774 -WORD 22,0 
0000021A' 8 sb ag -ADDRESS RUNDWN_BUF 
5 1A n6 RUNDWN_BUF : 
00000230 1A 6778 ~BLKB 22 
Bi 
8 A} : Head of self-relative UETP unit block queue. 
, Z .ALIGN QUAD 
785 UNIT_LIST: ; Head of unit block circular List 
00000000 00000000 § -QUAD 0 
7 3 NEW_NODE : ; Newly aquired node address 
00000000 00000000 ? f ; -QUAD 0 
4 791 HEAD_BUF : ; Buffer descriptor for the header message 
4 944 4 088 .LON er 
0000000" 0244 79 ADDRESS 
48 794 HEAD_LENGTH: ; Length of header record 


. 
i 
TTTYSOO VAX/VMS UETP DEVICE TEST FOR TERMINALS yt: i 138% 81338 98 ee ae Ma cro V04 on? Page 19 | 
v04-000 Read/Write Data “SEP-1984 04: UETP.SRCZUETTTYSOO.MAR; 1 (5) | 
00000000 0248 .LONG 0 
00 te @ SPARE: 0 ; Spot used to store byte while rotating dat. 
| 
40 r CUR _UNTBLE: ; Memory storage for the current unit block | 
00000000 $9 444 -LONG 0 
3 Hi XTERM_CHAR: ; Extended terminal characteristics 
00000000 51 802 LONG 


oO 
- 


~SBTTL RMS 
»ALIGN LON 


SYSIN_FAB: 
SFA 
FNM 

SYSIN_RAB: 
$RA 


INI_FAB: 


INI_RAB: 


$RAB- 


DDE_RFA: 
BLK 


F 4 
VAX/YMS UETP DEVICE TEST FOR TERMINALS 
RMS-52 Data Structures 


<SYSSINPUT> 


at FAB,- 


2 a all 


<GET,PUT,UPI>,- 
<UETINIDEV.DAT> 


INI_FAB,- 
BUFFER, - 
BUFFER. = 
REC_SIZE 


6 


-ALIGN LONG 


SUP_FAB: 


rs Data Structures 


? 


DUMMY _FAB: 
$F AB 


DOOSOOOCOOOOCOCOCOCOCOOOSCOCOCOCCOSCOSCOOCOCOOCCOOOOCOOCOCOOCOOOOOO 

PPNININYI OD 999090 970 OC SF WOOO WWD COCO COWWIWINWAAII Mm mmm > > > > > bP PP PIT 
COOOOD OO COCO COCO COCO CO COD OOO OWOWWODAAODCODMAAMAAHOAAHAOOHOOOOMOWBDO@WMMdOOMMmcomccmoun 
©900090009 09 09 00 00 09 00 00 09 Op 09 09 09 00 C0 OD Cd OD OD CD Od CD OD OD 0D 0D GD Cd 09 OD 09 CD 09 09 00 0D 09 0D OD OO CD CO CD CD CD CO CD OD CD CD CD CD 
PVPS TTI ES BB BP BB BE AANA NIA NNWIWIPPOPOPIPPIPPNDPD 2 SS SS OOOO 
WOONONA O OO NOAU EWN OO DNAU EWN (OO ONOA UE WR OO ONOUES WI" OOONOu 


BPH FAA AAA AWN NAAN AAA AAW inononononons 


$F AB- 

FAC = GET,- 

SHR = <UP!,GET>,- 

RAT = CR,- 

FOP = UFO,- 

FNM = <UETSUPDEV.DAT> 


Puamy FAB and RAB 
The follow 


ing FAB 


DUMMY _RAB: 


$RAB RSZ 
R 


to co 


Be 94:26:20 LORTPrSRCSUETTYYSODCMAR: 1 


Allocate FAB for SYSS$INPUT 


; Allocate RAB for SYSS$INPUT 


; Allocate FAB for UETINIDEV 


; Allocate RAB for UETINIDEV 


; RFA storage for INI_RAB 


; Allocate FAB for UETSUPDEV 


to the UETP unit blocks 


and RAB must be contiguous and in this order! 


“nun 
A 
a 
nm 
o 
v 
— 
‘ 


WRITE _SIZE,- 
cASv B10>,= 


———$—_—_———_— 
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VAX/VMS UETP DEVICE TEST FOR TERMINALS 
Main Program 


4 


UVETTTYSOO 
V04-000 


16-SEP-1984 01:36:0 AX/VMS Macro V04-00 
=SEP=1984 4:36:48 LUETP. SRC GETTTYSOO OMAR: 1 


-SBTTL Main Program 
~-PSECT TTYS,EXE,NOWRT,PAGE 


«DEFAULT DISPLACEMENT ,WORD 


Page 21 
° (7) | 


0000 


Start up the terminal test. This entails some overhead necessary to 
cope with both expected and unforseen conditions, figuring out just 

what devices are to be tested, making sure we can test the indicated 
devices and setting up writeable space for each device .o be tested. 


0000 


6D OCOF'CF ODE 


ENTRY UETTTYSOO, “M<> : 
MOVAL  SSERROR, (FP) 
$SETSFM_S ENBFLG = #1 : 
SDCLEXH-S DESBLK = EXIT_DESC 


SOPEN FAB = SYSIN_FAB,- 


Entry mask 

Declare exception handler 

Enable system service failure mode 
Declare an exit handler 


Open SYSSINPUT 


ERR RMS_ERROR 
SCONNECT RAB = SYSIN_RAB,- 3; Connect RAB to SYSS$INPUT 
a ERR = RMS_ERROR 
02 €1 BBC S*#DEVSV_TRM,- ; BR if SYSSINPUT is NOT a terminal 
3F 0298'CF SYSIN_FAB+FABSL_DEV,10$ 
SGETDVI_S DEVRAM = SYSSINPUT ,- ; Get the name of the device... 


be) eee ewe ew ee ww ww www o joo ol ele eleleleileolololealelelalelelolelololelelelolo) 
PPP PF OO00 0 NINA AO MII AIP S $QOOCCODOODOCOOOOOO 
FP NONWOG BL BNOPA FDA LH OMMMO OOCOD TV HH DOF FP WVWDONVVOOCOOCOOCOOOCOCOOnN 


OOOO OCOSCOCSOSCOOOCOSOOSOOSOOSOSOOOOOCOCOOO SOOO OOCOOOO OOOO OOOOOCOO 


WOOO OOO0O0O0O0O0000 00000000 09 09 09 09 09 09 Cd 09 CD C9 Cd CD 09 CD CD Cd CD CO C9 CD CD CD CD C9 C9. CD CD CD CO CO CD CD CD CD CD OD0D 
tt 4 MQOOOODOOOOOO COO OOO OOOO 000 09.09 09 09 69 0909 09 SI NINN NSIS NS NS NIAAA AAAAO oO 


NOUS WN CO OD NAWUE WIN OC OO NA UNE WIN OS OD NOU EWN @ O OD NA UE WI O ODNOU Ew 


EFN = 

ITMLST = INPOT_ITMCEST,- 
OSB = QUAD_STATUS 
QUAD_STATUS,20$ 


#SS_SYNCH_EFN,= ; 


3 «e-from which the test is run. 
; We have a special need here,... 
; «..get it now & save it in BUFFER 
rr f we can't get it 


5C O1CE'CF E9 BLBC ST P 7 A 
STRNLOG_S LOGNAM = CONTROLLER,- ; Allow terminal user to specify... 
RSLLEN = DEVNAM_LEN,=- ; ...a logial name... 
RSLBUF = DEVDSC 3 .--for the controller to test 
01 50 O01 CMPL RO, #SS$_NORMAL ; Was a controller specified? 
sm 6 ‘08 BEQL PROC_CORT_NAME ; BR if it was - go process it 
$GET RAB = SYSIN_RAB,- ; Read SYSSINPUT... 
ERR = RMS_ERROR ; .--for the controller name 
O2CA'CF BO MOVW SYSIN RAB#RAB$W_RSZ,- ; Save the name length 
O1E8'CF DEVNAR_LE 
3— 612 BNEQ PROC_CONT_NAME ; BR if we got something 
O1CE'CF 14 dO MOVL #Ss$ BADPARAM, QUAD_STATUS ; Set up efault if we BR below 
02. €1 BBC S*#DEVSV_TRM,- 3 BR if SYSSINPUT is NOT a terminal 
1B 0298'CF SYSIN_FAB+FABSL_DEV, 208 
0002'CF y 98 BISB2 #SELF_-TESTM,FLAG ; Set self test mode 
000C' CF oon +o KPC #°A/ (7 -BUFFER_PTR. = : Strip off leading underscores 
O1ES8'CF 50 B80 MOVW RO,DEVNAM_LEN ; Save the device name Length 
00B7"CF 61 50 28 008 MOVC3) RO,(R1),DEV_NAME 3 Use physical terminal name 
| re 08 +6 BRB PROC_CONT_NAME : Continue with testing 
OICA*CF OICE‘CF BO 008 MOVW QUAD_STATUS, STATUS :; Save the exit status 
OOD4'CF OF O00C PUSHAL NO_CTRLNAME ; Prepare for message... 
4 DD O0C PUSHL 3 «+.arg count 
00741132 8F oD 00C PUSHL  #UETPS_TEXT!STSSK_ERROR :; ...signal name 
03 D QO0C PUSHL 3 «.-arg count 
occl 1 +4 BRW ERROR_EXIT ; ...go tell of bad setup 


TTTYSOO 
04-000 


60 00B7'CF 


2 
79 0298'CF 


wee 


8F 
03 
03 


00748328 
00000000 ' GF 
2E 0002'CF 


7E 0230'CF opeate 


4 
VAX/VMS UETP DEVICE TEST FOR TERMINALS 1 


mist 1: 
Main Program 


“SEP=1984 04: 


D4 318 PROC_CONT_NAME: 
3C D4 1 MOVZWL + DEVNAM_LEN,DEVDSC ; 
DF 00DB 920 PUSHAL DEVDSC : 
DF OODF 921 PUSHAL DEVDSC : 
FB O0E3 «9 : CALLS. # -GeSTREUPCASE ; 
C1 QOFA 9 ADDL3 #1,DEVDSC,R F 
AO OF 924 ADDW2 R2.PROCES$ NAME : 
DE OOFS 925 MOVAL PROCESS NAME+8- ; 
OF6 9 § +MAX_PROC_NAME- : 
OF6 9 =PROCESS_NAME_FREE,RO : 
C3 OOFA ? 8 SUBL3 #PROCESS NAME _FREE ,~ ; 
15 OOFE 930 BLEQ 6 : 
C2 0199 931 SUBL2 
BO 01 9 é OVW 
0108 933 108: 
90 0108 934 MOVB. #*A/_/,(RO)+ 
28 010C 935 MOVC3 DEVO DEV_NAME , (RO) 
D4 0114 936 CLRL =(SP) 
DF 0116 937 PUSHAL T ST_NAME 
DD O11A 938 PUSHL us 
DD O11¢ 939 PUSHL PUETPS BEGIND!STSSK_ succéss 
a} E: 940 CALLS #4 git LTBSs 16m aye 
AB 0129 941 BISW2 #BEG 
ie he SSETPRN. S PRUNKMe OM eRb CESS _NAME : 
0139 «94 
E1 0139 944 BBC S*#DEVSV 
0138 945 SYSIN FABYFABSL ePEV 20$ * 
O13F 946 SASSIGN_S DEVRAM = PTR, - 
013F 947 2 
0150 948 $Q10W_S CHAN : 
0150 949 FUNC - bios AS ETMODE ! 
0150 950 Pi = CCASTHAND 
DF 0171 951 PUSHAL PROCESS_NAME 
DD 0175 93¢ PUSHL #1 
DD 0177 95 PUSHL #UETP$_ABORTC!STSSK_ success’: 
FB 017D 954 CALLS #3,G*LYTBSSIGNAL 
E1 0184 955 BBC #SELF TESTV, FLAG. 208 
018A 956 $GETDEV_S DEVRAN = EVDSC 
018A 957 PRIBUF = Die 
30 019F 958 BSBW GET_NODE 
O1A 959 ; 
an aay ; Set the device dependent parameters 
DF Hh 96¢ PUSHAL DIBBUF 
C1 O1A6 96 ADDL3 #UNIT SLI LIST. UNIT_LIST, -($b). 
FB 0180 964 CALLS EVDEP 
31 0185 965 BRW 
01BB 966 20 


+36: 06 rh ee es Page 


cro V04- on? 
UETP.SRC GET TTYSo MAR; 1 
; Set the device name length 
; Make sure 
: .eethat the specified controller.. 

-is all uppercase for later comapar ison 

Estimate the eventual. - 
«+eprocess name Length (incl. 
Locate first available byte.. 
e+eiN process name handle... 


ee Pang 


or device name 
Will the device name si ee 
n the remaining space? 
BR if it will 
i Replartae handle otherwise... 


R1,R0 
#MAX PROC _NAME ,PROCESS _NAME ; 3; «-.and define the maximum Length 


: Separate handle from device name 
; Concatenate handle with device name 
; Set the time stamp flag 
: aes the test name 
h the argument count 
Set the message code 
Print the startup message 
Set flag so we don't print it again 
Set the process name to UETTTYSOO_x 


; BR if SYSSINPUT is NOT a terminal 
3; Set up for CTRL/C ASTs if we are 


Enable CTRL/C AST‘s... 
iosm? CTRLCAST,= 


bose -and tell the user... 
««-how to abort gracefully... 
: Skip this if not self test 


; Get the device characteristics 
; Get a unit block and init it 


Push the device characteristics buffer 
; Push the unit block address 

; Set the device characteristics 

; Skip useless checking 


i — = 


I 4 
VETTTYSOO VAX/VMS UETP DEVICE TEST FOR TERMINALS 16-SEP-1984 9} ioe 06 Pea cyrs Be cro V04- on° Page 
v04-000 Main Program ~SEP=1984 04:26:4 UETP.SRC GET TTYSO MAR; 1 
1B 68 ; 
1B aes ; From UETINIDEV.DAT and UETSUPDEV.DAT, get information which gives controller 
18 3 0 ; and unit configuration and lets us know if the setup to run this test was 
i 4 ; done correctly. 
18 358 SOPEN FAB = INI_FAB,=- 3; Open file ‘UETINIDEV.DAT” 
01B8 97% ERR = RMS~ERROR 
01C 975 SCONNECT RAB = INT_RAB,- ; Connect the RAB and FAB 
107-976 ERR = RMS-ERROR 
106 «977 SMGBLSC_S INAD DR = INADDRESS,- ; Connect to UETSUPDEV global section 
1D6 978 RETADR = OUTADDRESS,- 
0106 «(97 GSDNAM = SUPDEY GEL SEC .~ 
01D 980 FLAGS = #SECSM_EXPREG 
00000978 8F 29 } Rite +t Hig gO 4888, NOSUCHSEC™ 3 ze pe Ay teen already there? 
: as 
gite 383 SOPEN FAB = SUP_FAB,- 3 ..-else open ‘UETSUPDEV.DAT" 
1FE 984 ERR = RMS_ERROR 
0200 985 SCRMPSC_S CHAN = SUP_FAB+FABSL_STV,- ; Create the global section 
0200 986 INADR = INABDDRESS,- 
0200 987 RETADR = OUTADDRESS, - 
0200 988 GSDNAM = SUPDEV_GBL LSEC,- 
ogee 444 30$ FLAGS = #SECSM_ EXPREG! SECSM_GBL 
56 O1E2*CF O1DE'CF C3 O$32 44 SUBL3 OUTADDRESS,OUTADDRESS+4,R6 ; Compute global section Length 
023D 993 FIND_IT: 
0230 994 $GET RAB = INI_RAB,- ; Get the first record 
023D 995 ERR = RMS_ERROR 
O2BF'CF DF O024C 996 PUSHAL CONT_DESC 3; Make sure... 
O2BF'CF DF 0250 997 PUSHAL CONT DESC 3 «e.that the controller name... 
00000000'GF 02 FB 0254 998 CALLS #2,G*STRSUPCASE S seate GL uppercase Letters 
0014'CF 44 8F +e SF 1050 ceor Soe »BUFFER 3 is vay Bh. 
3; Go on 
0014'CF 45 BF 91 0963 1001 CMPB #*°A/E/, BUFFER : Is this the: end 4 the file? 
12 0269 1008 BNEQ FIND If : Continue on if n 
0O98'CF DF 0268 100 PUSHAL DEVDSC ; Push device not eooereed message 
weed +4 osoF 13ee A rye + eta NAME ; Parameters on the stack 
00748333 g DD §Sh3 1006 PUSHL #UETPS$_DENOSU ' 
38 FO O5o8 st INSV ak EN oF ity, ; Set the severity code... 
03 a3ie 1009 #STS$S_ SEVERITY, (SP) 
O1CA'CF 8 + 8 13i9 a. tk STATUS 3 ..-and save it as the exit status 
080s Bf 0387 1912 108 BRW ERROR_EXIT ; Exit in error 
O0B7"CF OO1A'CF ores"ce ¢ 0 aA 3 cee ah LEN, BUFFER+6,DEV ~NABE it'ho ents the right controller? 
O380'CF O34C'CF 06 28 6 96 1oig MOVC3 6,1N1 Dr Me -RFA,DDB_RFA ; Save the Record File Address 
0018'CF 54 8F 1 8 9—E 101 CMPB re: al UFFER+4 : Can we test this controller? 
2F 13 Ag 1 18 BEQL FOUND. Ru ; BR if we can. 
A6é 101 $FAO_S cree ie = DEAD_CTRLNAME,- ; ...and yell at user if we can't 
A6 1020 OUTLEN = BUFFER_PTR,=- 
A 1021 OUTBUF = FAO _BUF,- 
A6 1 ¢ = #DEVDSC 
O1CA'CF 14 00 BF 1 MOVL #SS$_BADPARAM, STATUS : Set return status 
OO0C CF OF C4 1024 PUSHAL BUFFER_ PTR ne 


an 


eee) 


UETTTYSOO 
v04-000 


1 
00741132 er 


OACO 

O2BF 'CF 

O2BF CF 
Q0000000'GF 02 
OO14'CF 55 BF 
OO14'CF 44 14 
0014'CF 45 8F 
11 

0161°CF 

01 

00741132 8F 

03 

0A79 

OOFE 

OO18'CF 54 BF 
AE 

01 

02 

O1E6'CF 

2B7' CF 
QO0000000'GF 04 
CE 50 

05 20 

OO1A' CF 

50 

61 50 Mi 
OO98'CF QO1EB'CF 50 
O1E8'CF 

0087'C 61 50 


06 
OE aed *4 


0152°CF 0074 8F 
00D6' CF 

08 

0098' CF 

6 A 

57 OQODA'CF 

58  OO0DB‘CF 
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Main Program 


Dd 02¢8 1025 
DD Ogta 1066 
BD O¢9 
1 Qgde 10¢8 
ds 1 
D5 10380 
i 
DF ODES 18 : 
DE OZER 1054 
af FE 1036 
73 85f5 1888 
91 O2FB 1038 
13 0301 1039 
91 0303 1040 
13 0309 1041 
0308 104¢ 
DF 030B 104 
DD O30F 1044 
DD 0311 1045 
D 0317 1046 
1 0319 1047 
O31C 1048 
31 031C 1049 
O31F 1050 
91 O31F 1051 
12 0325 1058 
DD 0327 105 
DD 0329 1094 
DF 032B 1055 
OF 03 F 1056 
FBR 0333 1057 
£9 O35A 1058 
33D 1059 
0340 1060 
07 0343 1061 
0345 1062 
D6 0349 106 
Al 0348 1064 
3C 035 1065 
28 0358 1066 
O35— 1067 
SE 1068 
SE 106 
—1 0375 1070 
0 77 (1071 
BB 7B 1072 
0 70 1073 
B4 107% 
BA 87 1075 
D6 9 107% 
90 0380 107 
9A Q 1078 
9a 0395 107 
39a 1080 
9a 1081 


—_ 
Oo 
Sad 


20$: 
30$: 


35$: 


16-SEP-1984 


X/VMS Macro V04 
-SEP=-1984 


Bu:36:40 LuerPesectuerriysooemar:1 29° 


A 
. ETP$_TEXT!STSS$K_ERROR 


ERROR_EXIT We can't test what we can't test 
RAB = INI_RAB,- ; Get a record 
ERR = RMS-ERROR 

ONT_DESC ; Make sure... 

ONT _DESC ; «..that this Line... 
#2,G™STRSUPCASE S pant GOL uppercase letters 
#°A/U/ ,BUFFER : Is this a UCB? 

; BR if it is 
#*A/0/ ,BUFFER ; Is this a DDB? 
; BR if yes 
#*A/E/, BUFFER i; Is this the end? 
20$ ; BR if yes 
ILLEGAL_REC ; Then this is an error in the record 
; Push the error message 
Sot PS, TERT ISTE SON ; Push the signal name 
a ; Push the temp arg count 
ERROR_EXIT ; Finish for good 
ALL_SET ; Found DDB or END 
#*A/T/ ,BUFFER+4 Is the unit testable? 
FOUND_{7 R if 


no 
Flag to ignore blanks when converting 
Set byte size of resuits 
Set address to receive word 
Push string address 
Convert ASCII unit # to decimal 
Don't allow bogus unit to pass 
Find out where unit number really is 


#2 

UNIT_NUMBER 

UN C 

#6 «GOTSSCVT_TI_L 
#*A/ /,#MAX_UNIT_DESIG,- ; 
BUFFER+6 


; Units must all be at least one digit 


R : 
#*A/0/,R0,(R1) 3; Skip Leading zeroes on the unit 
RO ; Compensate for DECL above 
RO,DEVNAM _LEN,DEVDSC ; Calculate device’unit string Length 
DEVNAM_LEN,R2 ; Offset to unit number in DEVDSC 
RO, (R1),DEV_NAME (R2) 3 Append unit number to device 
S DEVNAM = BEVDSC,- ; Get the device characteristics 
PRIBUF = DIB,- 
SCDBUF = DIB_SEC 
#DEVSV_SPL,- 
DIBSL_BEVCHAR+DIBBUF_SEC,35$ ; Check for the spool bit 
#*A<R5> ; Save pointer to end of device name 
SP 1BSK LENGTH -DIBBUF _SEC.= ; Use secondary buffer if spooled 
#*M<R3> ; Restore pointer to end of device 
DEVDSC 3; Don't forget the : on the end 
#*A/:/,(R3) : Stick in the colon 
DIBBUF+DIBSB_DEVCLASS,R7 ; Save the device class 
DIBBUF +DIBSB-DEVTYPE ,R8 ; Save the device type 
CTRSTR = CS1,- 
OUTBUF = FAO_BUF,- 


24 
(8) 


UVETTTYSOO 
V = 
O1DE* DF 


O1DE DF 


56 OO14'CF 06 
1E 


56 OO14'CF 06 
0D 

55 ale 
0017°CF 6 5 
iF 

0098 'CF 

QOA0' CF 

02 

00748333 8F 

02 

00 

03 

QICA'CF = 6E 

04 

0991 

0040 8F 

0366 

00D6' CF 

O7D4'°CF 02 
eS 


SE AWA NAAN AANA 


tt ss a as as os a as = as —s ss = ss 2s 2s 4s © os ss 5 4 5 ss 4 4 2 > > 4s FD 


— = DODD DCOCOCOCO TN NNN WHMMMMMMNoOVSOVOW 
PO -*WDOIVMIVIOL&L | MP OVNI OVW WOOoUo > 
ot tt 8 3 3 3 3 3 3 4 I QODOODODDWOOOOOCOOOCOCOO 
St 3 M$ QHODTDTOOCOCOCOCOCOCOVOOOOOOO OWWOWomoo9c 
AOE WN 0 OO NAME WN 0 OD NOU EW O DOONAN Ur 


pole lelelejleleleleleleleloleleleloleolojelqia“) 


SLL 


PI = R7,- 


Pp 
ghaurin.te, QOUTADDRESS’ ; 


CTRSTR = CS3,- 
OUTBUF = = £90. BUF ,- 


p 
6 BUFFER.R6,@OUTADDRESS : 
50$ : 


TEST_NAME RS 
a (R3), TEST_NAME+8 


T 
fea 
(SP) 


* 
isp 


#*M<R6> 
GET_NODE 


: Set the device dependent parameters 


peur 
#2,SET_DEVDEP 
#*M<R6S 
FOUND_IT 


0 
UVETP.SRCJUETTTYSOO.MAR; 1 
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7 


e it into a string 
Make the device class and type 
:"BR if it was found 


; Try for full class support 


Find the device class only 
"BR if not found 


; Get the test name Length 
; ON gin the right test? 


; Push device not supported message 
; Parameters on the stack 
; Push the argument count 


; Set the severity code.. 

: ,..and save it as the exit status 
: Push the partial arg count... 

; «and split this scene 


; Save across GET_NODE & SET_DEVDEP 
> Get a unit block and init Tt 


; Push device information block adr 


Push unit block address 
Set the device dependent 


stuff 
; Saved across GET_NODE & SET_DEVDEP 


Do the next UCB 


Page 
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VO4000 Nain Program S28Ep=198¢ O4i26:40 


-00 
Main Program UETP.SRC GETTYY$00 MAR: 1 


arn 
oo 
~ 


——— 


41D 1118 ; 
a1 1119 ; Arrive here when we have the device configuration. In normal or loop forever 
41D 1120 ; mode, set a timer far enough in the future such that we can do a reasonable 
41D 1121 ; set of tests before the timer expires, but if our device gets hung, the 
41D 11 é ; program won't waste too much time before noticing. Let one-shot mode be a 
ret 1 z ; special case. 
41D 1125 ALL_SET: - 
oes" 3 2i8 1} § rsh WaT LIST i parenting te test? 
O13B'CF DF 0423 11 8 PUSHAL NOUNIT_SELECTED ; Else set up the error message... | 
1 OD Q427 11 PUSHL j «+-argument count... 
00741132 BF DD b¢ 9 1130 PUSHL #UETPS_TEXT!STSSK_ERROR ; ...signal name... 
DD O42F 1131 PUSHL *3 3 «+-8Nd parameter count 
OICA'CF 14 D0 04351 11 § MOVL #SS$_BADPARAM, STATUS ; Set return status 
o9sc— 3311 ett] i t ons BRW ERROR_EXIT i «and give up, complaining 
0002'CF 04 AB bee 1 2 bas BISW2 #SAFE_TO_UPDM,FLAG ; OK safe to update UETINIDEV.DAT now 
043E 1137 : $TRNLOG_S LOGNAM = MODE,- ; Get the run mode 
O43E 1138 RSLLEN = BUFFER PTR, | 
Q43E 1139 RSLBUF = FAO BUF | 
0014"CF 20 8A 0457 1140 BICB2 LC_BITM, BUFFER : Convert to upper case 
OO14'CF 4F BF 91 O45C 1141 CMP #*A70/ R ; Is this a one shot? 
AS bags 1148 Bi sw presto ERM, FLAG : os seat iterati 
O2°CF Q2 AB Q464 114 BISW VERM,FL ; End after one iteration 
2 012d Ss 311 ree] 1399 vn Tae ONE _SAOT ; Skip the SETIMR 
046C 1146 ~""$SETIMR_S DAYTIM = THREEMIN,- ; Set timer AST to 3 minutes 
046C 1147 ~ ASTADR = TIME_OUT,- 
046C 1148 = WEFN2 
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-SBTTL Test the Terminals 
56 O230'CF 00000230'8F C1 RESTART ADDL3 #UNIT_LIST,UNIT_LIST,R6 ; Set the unit block address | 


SEAR AERA ERATE AERA AAREARAAAAAARARERERAAHEHReee eee eee ee 
Device test specific code goes here. 


; At this point the device designation is in location DEV_NAME pointed to by 
: descriptor DEVDSC. The device is known to be supported and testable by this test. 


47F 1150 
47F 113) 
47F 11 6 
489 11 
489 1154 
489 1155 
489 1128 
489 115 
489 1128 
489 115 
944 1180 To leave successfully BRW SUC_EXIT, to leave in error BRW ERROR_EXIT. 
ac8s 1396 SERRA REE EEAE AERA EAAAAAAAEEATAEAEAEAAARARAARAAREKREEREKEReeeee Reet eee ee 
4 
OIFA'CF DS 0489 1164 TSTL PASS ; Only create and connect on the first pass | 
73 12 O48D 1165 BNEG 108 S else branch . 
E1 O48F 1166 BBC #SPL_UNITV,=- ; Is this unit spooled? 
03 0B A6 0491 1167 UVETUNTS$B_FLAGS(R6) ,3$ 
00A 31 0494 1168 BRW 25$ ; BR if so - try the next one 
0497 1169 3$: 
0497 1170 SCREATE fae = UETUNTSK_FAB(R6) ; Create the channel 
4— 50 = €8 BeAg 1171 BLBS RO,5$ ; Did we succeed? Br if yes... | 
O1C6'CF D6 O04A 11% INCL — ERROR_COUNT ; Bump the error count 
50 DD 04A9 117 PUSHL RO ; Push the error code... 
50 «DD «6(Q4AB «(1174 PUSHL RO 3 «.-and the error code... 
14 AG GA OQO4AD 1175 MOVZBL UETUNTST_FILSPC(RA) ,- 
0098'CF 0480 1108 V 3 «.-get the name size... | 
15 AG DE 0483 117 MOVAL UETUNTST_FILSPC+1(R6),- | 
OO9C CF B788 1178 DEVDSC+4 3 «.-get the name address... 
OO098'CF DF 0489 1179 PUSHAL DEVDSC j «.-and push the device designation... 
QOOOF'CF DF OQ4BD 1180 PUSHAL TEST_NAME 3 «eeand the test name... 
QOOFO003 8F DD O04C1 1181 PUSHL #*xF0003 ; «eeand the arg count... | 
0074819A BF DD 04C7 1186 PUSHL #UETP$_DEUNUS!STSSK_ERROR ; ...and the signal name... 
O1C6'CF DD O4CD 118 PUSHL ERROR COUNT 3 «e.and the error count... 
OOAO'CF DF 04D1 1184 PUSHAL PROCESS NAME 3 ...0Ur OWN name... 
00010002 8F DD 0405 1185 PUSHL #*x10002 ; ...and the argument count... 
00748022 8F DD O4DB 1186 PUSHL #UETP$_ERBOXPROC!STSSK_ERROR ; ...and the sigral name... 
O0000000'GF OA FB OQ4E1 1187 CALLS #10,G*CIBSSIGNA 3 «.eand print the error 
02 8A O4E8 1188 BICB2 #UETUNTSM_TESTABLE,- 
OB A6é O4EA 1189 UETUNTSB_FLAGS(R6) ; Clear the testable bit 
01 88 QO4EC 1190 BISB2 #UETUNTSA_DONE,- . 
0B As O4EE 1191 UETUNTSB_FLAGS (R6) ; Set the done testing bit 
005 31 ee 1138 $$ BRW $ ; Skip testing 
4F 1194 SCONNECT RAB = UETUNTSK_RAB(R6),- 
4F3 1195 ERR = RMS_ERROR ; Connect the RAB 
206 1138 10$: 
02 88 0502 119 BISB2 #UETUNTSM_TESTABLE,- 
0B A6 504 1133 UETUNTSB_FLAGS(R6) ; Set the testable bit 
58 +44 ey DE 0506 119 MOVAL pervlee 02,R8 ; Set the success service address 
57 0160 C6 ODE 308 1200 MOVAL UETUNTSR_RAB(RO) ,R7 : Get the RAB address 
028A C6 DE 0510 1201 MOVAL UETUNTSK"HEADER+2(R6) ,- 
A 514 1 § RABSL_R ) ; Set RAB write address 
02 Cg BO 218 1 8 MOVW Ue TUNTSK HEADER(R6) ,- : 
A 1A 1204 RABSW_RS7(R7) ; Set RAB write size | 
0100 8F A7 Bl 216 1 05 CMPW © RABSWIRSZ(R7) ,#HDR_OUT_SIZE ; Check the size | 
0B 15 0522 1206 BLEQ 20% ; Br if small enough... 


VETTTYSOO 
v04-000 


56 66 
00000230'8F 5 
FFS5 


5B 0230°CF  00000230'8F 


So 
@ 


00000230'&F 
0138" 
00741132 
O1CA'CF 


TPWwTn no 


oO 
@ 


0158 

56 O2350'CF  00000230'8F 
07 

03 0B A6é 
OOBE 


O24D'CF 56 


57 0288 C6 


Test the Terminals 
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wovvoT7o-90— 
—ovUv To Nor” 


Ww 
— 


own O&O 
ore lc arth 
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IZE,R 
1 


MOVW #H 
MOVAL § 


~m 
So 
A 


MOVB = UETUNT$B_HD_LEN(R6),= 
UVETUNT$B_LIRE(R6) 
SWRITE RAB = (R7),- 
ERR = Ris ERROR, = 
SUC = (RBY 
25$: 
ADDL2 (R6),R6 
CMPL  R6,#UNIT_LIST 
BEQL 
os BRW RESTART 
pie ADDL3)  #UNIT_LIST,UNIT_LIST,R11 
BITB §§ #UETUNTSM_TESTABLE,- 
TUNTSB_FLAGS(R115 
BNEQ $ 
ADDL2 (R11),R11 
CMPL R11,#UNIT_LIST 
BNEQ 
PUSHAL NOUNIT_SELECTED 
PUSHL : 
PUSHL #UETPS_TEXT!STSSK_ERROR ; 
PUSHL @# 
MOVL #5S$_BADPARAM, STATUS 
BRW ERROR_EXIT 
50$: 
SHIBER_S 
SCANTIA_S 
BRW SUC_EXIT 
ONE_SHOT: 


#UNIT_LIST,UNIT_LIST,R6 


ONE_SHOT_LOOP: 
6BC #SPL_UNITV,- 
UETUNT$B_FLAGS(R6) ,5$ 

NEXT_TTY 


VETP.SRCJUETTTYSO 


tented 3 47 etee make it small enough 
; ® 


take more than one bite 
; to output this header 


; Save it's Length in Lines 


; Write the header async 


Get the next unit block address 
Is this the end? 

Br if yes... 

else do the next one... 


; Set the unit block List header 


; Is this unit testable? 
; BR if yes 

; Next unit block 

3; Are we full circle in the List? 
; BR if not 

; Else set up the error message... 
3 «.+-argument count... 

3 «eSignal name... 

3 «.+-and parameter count 

; Set return status 

3 «and give up, complaining 


3; Service I/0 AST's 

: Forget the watchdog timer 

; Loop until the test is over 

; Get the List address 

; Is this unit spooled? 

; BR if it is - try the next 

; Save a copy of the adr in perm mem 


; Set a 5 second watch dog timer 
; Get the name size 


; Get the name address 
: Don't bail out on this error 


VDSC,- 
= UETUNT$W_CHAN(R6) ; Assign the channel 


s BRW 
MOVL __ R6, CUR_UNTBLK 
SSETIMR_S DAYTIM = FIVESEC,- 
ASTADR = TIMED_OUT,- 
EFN = _#EFN 
MOVZBL UETUNTST_FILSPC(R) ,~ 
MOVAL UETUNTST_FILSPC+1(R6),- 
DEVDSC+4 
SSETSFM_S ENBFLG = #0 
SASSIGN7S DEVNAM = DE 
CHAN 
movL RO Staty 
BLBS STATUS, 108 
on BRw ONE SHOT_ERROR 


MOVZWL UETUNTSK_HEADER(R6) ,R7 


; Save the status 
; If OK then go on... = 
3 ...else take care of failure. 


; Get the header size 


de (38) | 
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UETTTYSOO VAX/VMS UETP DEVICE TEST FOR TERMINALS 16=-SEP 1: AX/VMS M gcro v04-00 Page | UE 
V50~008 orSeen 188s bai 2e:46 oorman:1 28 88) | 
HEAD 
EA 


O2BA (6 «57 «(OCOM*CF «= 02-s89—sCOSFA 1266 NATCHC #2, CREE R7 | 
$8 1265 ADER+ $f ; Find the CR/LF. There has to be one 
O2BA DE 6 1 96 MOVAL UE font ee HEADER+2(R6),= 
°° 126 R ; Get the header start address 
ae | C3 0608 1 rt: SUBL3 = RB, RB «* ; Get the byte count to the start of... | 
O24n'CF 56 Dd 060C 1 $ MOVL — R6,CUR_UNTBLK > Save the unit block address 
611 1270 $Q10W_S FUNC = “F10$ WRIT eveLs 
611 1271 CHAN = UETURTSW_CHAN(RO), 
0611 1 te I1OSB = UETUNT$K_ RABCRABSC STS(R6), - | 
Rely 127 Pi = TUNTSK -HEADER+2(R6) 
6 } 1274 P = ge the header 
0B 28 33 86 1275 BLBS R 208° : BR if no error... 
wren’ 0 ? be : ! 6 oe BR ogi Atus ; Save the status | 
008? Ri 9843 } 4 208 BRW ONESHOT_ERROR ; «else take care of failure. | 
0641 1280 SCANTIM_S : Forget the watch dog timer 
pooh 1 + SSETSFM_S ENB iss n SS failure mode 
59 0168 C6 3C 0653 1 MOVZWL Bec K _RAB+RABSL _sts¢ré), RO; Get the 10SB value 
OA 59 «=6©E€8 «0658 128 BLB : if the I I0SB has no error we are OK 
OICA'CF 59 DO 065B 1284 MOVE : Save the error code 
0015 31 9660 1 85 BRW ONE SHOT” ERROR ; Report the failure 
06~=«O1 B663 \ a6 os BRB NEXT_TTY ; ...and look at the rest of the Lines | 
02 88 0665 1288 BISB2 #UETUNTSM. TESTABLE. - | 
OB A6é Beer } SP EXT. TTT: UETUNTS$B_FLAGS (R6) ; We have a good line here. Say so. 
56 66 «CO. (0669 «1291 ADDL2 (R6 ; Get the next unit block | 
56 00000230 BF b 0666 36 CPL HUNT LIST.RO Are ve al all done? | 
FF2B 31 0675 1294 BRw ONE-SHOT_LOOP : Else test the next Line 
ors 1295 ONESHOT_ERROR: 
06? 1296 “SCANTIM_S ; Forget the watchdog timer 
O1C6"CF D6 0681 1297 INCL ERROR_COUNT ; Bump the error count 
OICA'CF DD 0685 1298 PUSHL STATUS ; Push the error code... 
O1CA'CF DD 0689 1299 PUSHL STATUS 3 ...and the error code... | 
O098'CF DF 068D 1300 PUSHAL DEVD 3 «eeand the device designation... 
OOOF'CF DF 0691 1301 PUSHAL TEST _NAME ; ++-and the test name... 
QOOOFOOO3 8F DD 0695 1 O PUSHL #*xF0003 ..and the arg count... 
0074819A 8F DD 0698 130 PUSHL FUE TPS Res (ST SSR ERROR 3 «.-and the signal name... 
O1C6"CF DD O6A1 1304 PUSHL ERROR COUNT bose “and the error count... 
AO'CE DF O6A5 1305 PUSHAL PROCESS_ NAME ; iilour own name... | 
00010002 8F DD 06A9 1306 PUSHL #*x10002 ...and the argument count. 
0748022 8F DD O6AF 1307 PUSHL ay e iio ERROR’; ~--and the signal name. | 
00000000'GF OA FB 0685 1 3 CALLS ogee NAL : ...and print the error 
0830 8F 59 =#B1 O6BC 1 CMPW Obes TRANCEL : Did a timeout occur? | 
5 13 06C1 1310 BEQL 4 ; BR if it was 
2c 9 Bi 06C3 1311 CMPW R9,#SS$_ABORT ; Did a timeout occur? 
1S 12 Goce I51¢ Bed 20$ : BR if not | 
oeoc's ad ecs : 13 tg TIME_OUT_MSG : Print the timeout error message | 
00741132 BF DD O6CE 1 18 PUSHL A tty reer istoee. ERROR 
00000000 ' GF 3 «6FB 4 : : 208: CALLS “LTB 
FF8B 31 Q6DB 1 15 BRw ee ; Go do the next unit 
6DE 15320 TIMED_OUT: 
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oops 6DE 1 «WORD 0 : Go here with watchdog timer timeout | 
56 O26D'CF OD 6—0 1 MOVL CUR_U Get the unit block address 
3 1 SCANCEL_S C fAAN. : LOETONTSW. acai 3 this is one I0 that will never complete. 
04 f 1326 RET 
6F1 1325 
GF1 13¢6 SUC_EXIT: | 
66 0002'CF 07 +€O QO6F1 1 BBS #CTRLC geeny PEAS. 10$ ; Exit now if user typed CTRL/C 
GF? 1328 STRNLOG_S LOGNRA | 
oF? 1 RSLLEN = = BUFFER PTR,= 
sf 1330 RSLBUE = FAO_BUF ; Get the run mode 
0014'CF g0 BA 19 1331 BICB2 #LC_BIT nu yeten : Fonvert to upper case 
OO14'CF 4C BF 1 #0715 1 § CMPB #*A7L/,BUF 3 Ag y9'se a loop for ever? 
40 12 0718 1 BNEQ 10$ 3 
O002"CF O02 AA Q71D 1334 BICW2 #TEST_OVERM,FLAG : Soest the termination flag 
OIFA'CF D6 O722 1335 INCL PASS ; Bump the pass count 
726 1 : $FAO_S CTRSTR = - 
0726 1 OUTLEN = BUFFER Bt. 
o¢ 6 1338 OUTBUF = FAO_BUF,- 
726 ©1339 P1 = PASS,- 
0726 1340 = ITERATION,- 
07 1341 = #0 ; Make the end of pass message 
OO0C'CF DF 074 1 g PUSHAL BUFFER PTR ; Push the string desc. 
DD 0747 134 PUSHL ; Push arg count 
00741133 8F DD 0749 1344 PUSHL eae Mi Hts INFO ; Push the signal name 
Q00000000'GF 03 FB O74F 1345 CALLS . Gur | Sa ; Print the end of pass message 
O1F2°CF 4 0756 1346 CLRL ; Reset the iteration count 
FD 1 O75A tr 4 BRW ; Do the next pass 
075D 1348 10$: 
QO1CA'CF 10000001 BF DO O75D 1349 #SS$_NORMAL !STSSM_INHIB sy Fiber: ; Set successful exit status | 
0766 1350 SEXIT _S STATOS Exit with the status | 
| 
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VAX/VMS_UETP DEVICE TEST FOR TERMINALS 
GET_NODE Routine 


SEP 1986 Ou :26 


-SBTTL GET_NODE Routine 


UETUNTSL_FLINK 
UETUNTS$L_BLINK 
UETUNTS$B_TYPE 
UETUNTS$W_SIZE 
UETUNTSB_FLAGS 
UETUNTSW_CHAN 
UETUNTS$W_FUNC 
UETUNTSL_ITER 
UETUNTS$T_FILSPC 


UETUNTSK_F AB 


UETUNTS$K_RAB 


UETUNT$K_DEVDEP 
UETUNTS$SB_LINE 


UETUNTSB_HD_LEN 


UETUNTSB_LENGTH 


UETUNTSW_WIDTH 
UETUNTSL_CURHDR 


UETUNTSK_CCTBL 
UETUNTSK WRITE 


5 

FUNCTIONAL DESCRIPTION: 
This routine dynamically allocates enough memory for a unit block 
a device dependent parameter area and 1/0 buffers. The unit block 
into the queue header it bl 
The unit block format 


NIT_LIST. It the 
s as follows: 


hoe em ee eee ee a ewe oe oe ee + 
: ; 
tae nem eee eee + 
os teens 
; : 
few wm ee ean 
; : : C 
7 
' ' 
moa} teen cen + 
ees 
tere cece tw merere + 
: : } 
es + 
: : 
tam w mae ne ame name + 
H ; 
L/NININININININZ! 


NAMSC_MAXRSS bytes 
LANINTININININA /: 


bow cere nena 


:06 as Macro V04- 
74 UETP.SRCJUETTTYSO 


n initializes the un 


ontain 


DEVDEP_SIZE + UETUNTS$C_INDSIZ 


. 


UETUNTSC_SIZE 


DEVDEP_SIZE 


So HaR: 1 


Ock. 


' 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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VETTTYSOO VAX/VMS_UETP DEVICE TEST FOR TERMINALS 16-SEP-1984 01:36:0 AX/VMS_M v04-00 P 
VO4- GET_NODE Routine etter 91:38:88 LUETP. SRC GeTrtysoo. MAR; 1 a 3), 


IMPLICIT OUTPUTS: 
New inited unit block is inserted into UNIT_LIST 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
COMPLETION CODES: 
NONE 
| 
| 
| 


SIDE EFFECTS: 
NONE 


1008 é UET UN TSK K_ WRITE Peewee eeeeocaeooen$} eoacecen j 
1409 ; WRITE buffer ! ! * | 

3 ee ! 

; bytes teocece WRITE_SIZE 

; tANININININININT ! 

: UETUNTSK_HEADER teeccececccescnnt ipieaieatines : 

; HEADER buffer ! - 

$ AVAVAVAVAVAVATLY: ! 

; 132 bytes ¢occce HEADER_SIZE 

; tINININININININT | ! 

; RES SS salience : 

' CALLING SEQUENCE: 

3 BSBW GET_NODE 

: INPUT PARAMETERS: 

3 NONE 

> IMPLICIT INPUTS: 

3 UNIT_LIST contains head of doubley Linked circular List of unit blocks 

: OUTPUT PARAMETERS: 

3 R6 = address of new node 


Fae Tw | owe |e |e | we | we) we) wee we ww wel wl wlololololeleleleolelelelelelelelaleolea! 
ee i i eee ee ee ee ee ee i i i i i i i 


> 0000000 NINN NNISSSSSSSSSSSSSSSSSSSS 
PUPP PISS BB BS BS BS BB BS AANA AAA AA AIPOORPOPINIPUNINI — — 
NAA WN OOO NOU EWN OD ODA EWN OOD NOUS WN HOOD NOUE WIN O 


ee ed a ed a = 2 4 — os 8 — 4 2 9 9 9 —9 — 9 2 — 9 —) 9 4» 9 — 9 9 4 42 3 2 
PTS SS eS Se ee ee ee ee ee ee ee eee 


GET_NODE: 
SEXPREG_S PAGCNT = #PAGES,- 
RETADR = NEW_NODE ; Get a new node of demand zero memory 
0230'CF Oe ee OE 5D INSQTI] @NEW NODE ,UNIT_LIST : Put the new node in the unit List 
0238'CF 4 NEW RODE, R6 ; Save a copy of its address 
08 A6 gt 9 MOVB #1, 0ETUNTS$B_TYPE(R6) Set the structure type 
0187 8F BN MOVW  #UETUNTSC_IRDSIZ+DEVDEP_ S126, - 
09 A6 ETUNTSW_SIZE(R6) Set the structure size 
4 Ab 0098 CF 90 MOVB. DEVDSC,UETUNTST FILSPC (RA) ; Set the device name size 
009C DF 098" Ct 28 MOVC3 DEVDSC. aDEVDSC+2,- 
15 A6 UETUNTST FILSPC+1(R6) ; Save the device name 
9 94 BF 28 O7A MOVC3 #FABSC_BCN+RABSC_BLN,- 
0110 6 BCE 7AB : DUMMY FAB,UETUNTSC_FAB(R6) ; Save a FAB and a RAB away 
57 0110 C6 ~=~DE «(078 5 MOVAL UETUNTSK_FAB(R6), ; Save the FAB address 
0160 £6 DE 0786 1460 MOVAL U TUNT$KTRAB (RG) , RB : Save the RAB addres | 
3c As D0 O07BB 1461 MOVL 7, RABSL-FAB(RB) : Set the FAB oddone te tha WO 
14 Ag 90 07BF 6¢ MOVE UETUNTST FILSPC (RO) .~ | 
34 A 7C2 6 FABSB_FNS(R7) ; Set the FNS field in the FAB | 
15 A6 DE O764 1464 MOVAL OE TORTS “FILSPC+1 (R6) 


5 
A de, TEST FOR TERMINALS Tereee 


2c A 
18 yo q 
a ae 


SEP AX/VMS Macro V04-00 

SEP =138% ae 38: 96 LUETP. SRC Cee oc one MAR; 1 
FABSL_FNA(R7) ; Set the FNA field in the FAB 
(R6) ,RABSL Bey ; Set the UETUNT address in the RAB 
UETUNTSK_HEADER+2(R6),=- 
RABSL_RBF(R8) ; Set the buffer address 


] 


Page 34 | 
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VETTTYSOO VAX/VMS_UETP Bey ICE TEST FOR TERMINALS 19360-1388 1:39:96 AX/VMS Macro V04- 90 
v04-0 SET ne : UETP.SRCJUETTTYSOO.MAR; 1 (13) 


-DEVDEP “SEP=1984 04:26:4 


° 


Rout 
704 1471 «SBTTL SET_DEVDEP Routine 
704 1906 3 p++ ‘ 
704 147 ; FUNCTIONAL DESCRIPTION: 
704 1474; This routine initializes the device dependent parameters in the unit 
704 1475 : block specified. 
704 1208 3 
704 147 ; CALLING SEQUENCE : 
07D4 1478 ; PUSHAL DIB : Push the device information block adr 
0704 1479 : PUSHAL UNIT _BLOCK ; Push the unit block address 
0704 14 0; : CALLS #2,SET_DEVDEP ; Set the device characteristics 
9706 14 ¢: > INPUT PARAMETERS: 
704 1485 ; 4(AP) address of the unit block : 
0704 nt te 3 8(AP) address of the device information block | 
0704 1485 : 
07D4 es ; IMPLICIT INPUTS: 
0704 138 : NONE | 
R708 1488 : 
704 1489 : OUTPUT PARAMETERS: 
0704 1490 : NONE 
0704 1491; 
07D4 RS ; IMPLICIT OUTPUTS: 
0704 149 : Device characteristics are inited in the unit block 
07D4 1494 : 
07D4 1495 : COMPLETION CODES: 
07D4 1496 : NONE 
07D4 1497 : 
0704 1498 : SIDE EFFECTS: 
0704 1499 : NONE 
07D4 1500 ; 
0704 1501 ;-- 
0704 1386 
0704 1503 SET_DEVDEP: 
OFFC Bope 1308 WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,RII> ; Entry mask | 
56 04 AC DO O7D6 1506 MOVL 4(AP) ,R6 ; Get the unit block address | 
59 08 AC DO O7DA 1507 MOVL B(AP) .RO : eee she DIB address 
SA  O523'°CF ODE 1443 1508 MOVAL TESDEV_TBL.R10 he table address 
05 Ad «21S so91)s«O7ES~ =: 1509 CMPB #OTS_ LK120, DIBSB_ Deviveeing) . jShoutd only 2 pages be printed? 
04 12 O7E7 1510 BNEQ 10$ not. 
OB A6 04 88 14 34 131) 108 BISB2 #UETUNTSM_2PL ,UETUNTSB_ riaescrar” Sos celse set the flag 
04 AD 43 BF 7] Bree 1318 re #0C$_LP,DIB$B meant: Should only 2 pages be printed? | 
no eee 
OB A6 4 a8 He 1312 208 BISB2 #UETUNTSM_2PL,UETUNTSB_ FLAGS(R6) ; ...else set the flag | 
04 ADs 6A sf rs 1317 Brat (R10) ,DIBSB_DEVCLASS(R9) ; Is re the right table entry? | 
FFF2 SA OF 0640' 8F 3D Orr 1519 ACBW #TESDEV TBL ENS #15,R10, bos"; Do” it for the whole table 
806 1520 SGETDVI_S DEVNAM = BEVDSC,- "Get the name of the device... 
4 1521 = aSs SYNCH_EFN,- : ...from which the test is run. 
06 15 ¢ tires" = TERM_ITMLST.-  ; a have a special need here 
8 15 = .* ap “STATUS * ...get it now & save it in BUFFER 
12 OICE*CE 9 1524 BLBC ae Satu Abort if we can't get it 
0251'°CF 0100000 i D3 5 pitt #TT2SM TANSTERT® XTERM_ CHAR me an ANSI > a 
: if not... 
5A O523'°CF ODE 3 15 5 MOVAL tESDEV. TBL,R10 3 ...otherwise set up as a VT100... 


eth 1300 
v04-000 


O1CA'CF 


Q1AS C6 0 
00000648'8F 0 oA 


68 


O1AF C6 


57 


67 
08 A9 0000 


00C6'CF 


oO 
Nm 


1D 
OICE' CF 
0004" CF 
00741132 BF 
0544 

SA OSFS'CF 
BA C6 


CF 
AR 


0 
0B A6 820 
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OP coco 


oDmW MNOCOCCOoO 
on WR> —nrnrnr 


wow 

orn 
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OOOO DW WOON OM1OVYWM POF APAHPUVUMOOOOO 
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0000 
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C 
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0 
0 


ooo 


L=4 
OOOCOCGCOOOCOCOCOOOOOCOCOO Ms 


Coco CoCo COCO COCO CD COCO CO CDCRCOCNCNCDCNCROCNCD <u) 


SSN 


oo 99O—-TWTOFOrPrrronrvrw 


wT MROMVWOOOCOOCOCON@MOO 


© 


>rrowovon 
CWO NL OM SS So 


yh Ab Ab Ab db Ab db Ah dh dh hb dh dh dh Ab db tb db tb db db tb dh db dh dh Ab dh ab Ah ah ah sh ah ah ah ah sb ah sh ahah shah ah ak ah sl eal eal el esi eal eal ea) al eal 


SOOOOOCOOOOCOCOCOOCSOOOOCOOCOOOOOOOOOOOOCODOOCOOOCOO 


SMW WA OF — FS MOV OWDOWNIOOOL 


= B2OOO MN RNAMMMOCGIVIMOOO 


00000 00000000000 000000 09 00 C0 CD CD 


cv 
am 


DDDPEDDPEDP GIA Be BB SB BB WAIN 


FAN SO ODNOA UNE WIN 9 OD NAME WIN O OO NOAU EWN OOO NOU EW OOONOUS Wr OW0 


C000000009 SINS NSIS SIN NIO OOOO 


~ 
w 
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27$: 
30$: 


35$: 


40$: 
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VICE TEST FOR TERMINALS 16-SEP-1984 01:36:0 AX/VMS M 04- 
ine $ Fen 198 8 3 : t GErrt “ 


MOVW 


MOVAL 
MOVAL 


MOVZWL 


PUSHAL 
PUSHAL 


~ 4 04:26:4 UETP.SRCJUETTTYSOO.MAR; 1 
30$ j «+-and carry on 
QUAD_STATUS,STATUS i; Save the exit status 
NO_CTRLNAME ; Prepare for message... 

# 3 «.-arg count 
MUETPS_TEXT!STSSK_ERROR ; ...signal name 

# + «arg count 

ERROR_EXIT ; «--go tell of bad setup 
UNKNOWN1 ,R10 ; Assume the lowest level of test 
UE TUNTS$K_HEADER+2(R6) ,= 

HEAD_BUF #4 the output address 


; Set 
¢(R10) ,UETUNTSB HD_LEN(R6) ; Save the header Length in Lines 
£5810) .AVT100_ PREAMBLE ; Is this a scroll region device? 


; BR not 
#SCROL_CLRM,UETUNTSB_FLAGS(R6) ; else set the scrol clear flag 


CTRSTR = HEAD_CTRSTR,- 

OUTLEN = HEAD_LENGTH,=- 

OUTBUF = HEAD _BUF,- 

P1 = 7(R10),- 

Ps = 3(R10),- 

P = #DEVDSC ; Form the header + preamble 
HEAD_LENGTH,=- 

UETURTSK_HEADER(R6) ; Save the header/preamble Length 
UETUNTSK_HEADER+2(R6),R8 ; Get the header start address 

HDR _OUT_SIZE(R8),- 

UE TONT$C_CURHDR(R6) ; Set the current header address 
HEAD_LENGTH,R7 ; Get the header Length 

R7,R8 ; Make the start address for the TSD 
11(R10) ,R7 : Get the TSD desc address 
(R7),a@4(R7) , (RB) : Copy the TSD into the unit block 
(R7) ,UETUNTSK_HEADER(R6); update the total header Length 
DIBSL_DEVDEPEND+3(R9) ,- 

UETUNT$B_LENGTH(R6) ; Set the page length 
DIBSW_DEVBUFSIZ(R9) ,- 

R? ; Get the Line size 

R7 ,UETUNTSW_WIDTH(R6) ; Save the Line size 
#S{ZE_TBL_LEN,R7 : Add in the CCTBL table Length 
R7,SIZE_TBL UETUNTSK, CCTBL (R6) ; Init the CC tbl and write buffer 
#size TBL_LEN,R 3; Take size table back cut 
R7,UETUNTSK_CCTBL(R6) ; Set the record Lengths 

R7 ,UETUNTSK_CCTBL+2(R6) 

R7 ,UETUNTSK_CCTBL+4(R6) 

R7.UETUNTSK~CCTBL+6(R6) ; 
#UETUNTSK WRITE .R7 : Calculate the byte offset into the block 
R6,R ; Calculate the address 


LFER, (R7) ; Set up the termination characters. 
#1 1$A_LOWER ,DIBSL_DEVDEPEND(R9) : Is this a lower case terminal? 


; Br if yes 
#WRITE SIZE ,DATA_DSC 3 Init the string descriptor 
UETUNTSK_WRITE (RE) ,~ 


DATA_DSC¥4 ; 
DATA_DSC : Set up STRSUPCASE destination 
DATA_DSC ; Set up source 


. 3 
VETTTYSOO VAX/VMS UETP DEVICE TEST FOR TERMINALS 1 mi iat tty 81339208 Yeete aac 0 V04- on? Page 3 
VO4- SET_DEVDEP Routine =SEP=1984 04:26:4 UETP.SRC UETTTY$O MAR; 1 (13) 
O0000000'GF 02 FB 4 13 5 $08 CALLS #2,G*STRSUPCASE ; Convert data buffer to upper case 
10 A6 D6 O09 12 . INCL ye rues ITER(R6) ; Set to page 1 
08 E1 09 1588 BBC V$vV 
4D 6 9 1589 DIBSL BEVCAAR (RO) 608; Check for the spool bit 
1 8F 88 0929 1590 BISB2 #SPL_ONITM!UETUNT$M_DONE.- ; We can't test spooled devices 
B A6 92C 133) PTURTSB. FLAGS< 
92E 1 35 $FAO_S CTRSTR = NOSPOOLED,- ; Let the user know about it 
92 159 OUTLEN = BUFFER PTR,- 
O92E 1594 had = FAO _BUF,- 
9 3 1595 P = #DEVDS 
pire ce 06 94 1 39 INCL ERROR_COUNT 
OOC'CF OF 948 159 PUSHAL BurreR PTR 
poor 908) gf DD O94F 1598 USH #*xF0001 
00741130 8F DD 0955 1599 PUSHL #MUETPS_TEXT!STSSK_WARNING 
01C6'CF DD 0958 1600 PUSHL ERROR_COUNT 
QOAO'CF DF O9S5F 1601 PUSHAL PR pROce Ss NAME 
00010002 8F DD 0963 1906 USH 
00748020 8F DD 0969 160 PUSHL HUETPS by gpg lao WARNING 
00000000 ' GF 07 FB O96F 1604 CALLS #7,G*LIBSSIGN 
0976 1605 60$: 
04 0976 1606 RET 


. - - —— - - eevee tL LC CL LLL 
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VETTTYSOO VAX/VMS UETP DEVICE TEST FOR TERMINALS 16-SEP-1984 01:36:0 AX/VMS Macro v04-00 Page 37 | 
v04=000 SERVICE _10 Breen T he Baiseice YOeterenctuesrissoo mar:1 2 ay 
977 16 -SBTTL SERVICE_I0 
977 1899 + 3¢ | 
977 1610 ; FUNCTIONAL DESCRIPTION: 
977 1611; This routine services ght seynchronous 1/0 completions for all unit 
977 1016 : numbers under test. After the groper number of iterations or ,e lapsed 
977 1613 ; time have been completed the unit number is disabled for testin 
art 1oi2 5 This routine does the data checking as well as the next 1/0 ini jation. 
977 1616 : CALLING SEQUENCE: 
444 191 3 Entered via an AST from the RMS 
0977 1819 | INPUT PARAMETERS 
art 19 9 : 4(AP) = address of RAB of unit completing 1/0 
bor 16 ¢ : OUTPUT, PARAMETERS: 
0977 1623; None | 
0977 1624 ;-- 
0977 1625 
0977 16 § SERVICE_I0: 
OFFC +4 1° 3 ~ WORD “M<CR2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
5B 04 AC DO 0979 1899 MOVL 4(AP),R11 ; Get the RAB address 
097D 1630 NEW_PAGE: 
097D 1631 SDISCONNECT RAB = (R11),- 
097D 1632 ERR = RMS ERROR : Disconnect to set 10 mode 
04 AB 00000800 8F CB O98A 163 BISL2 #RABSM_BIO,RABSL_ROP(R11) ; Set to block IO for the header 
Ba38 1634 SCONNECT RAB = (R11),= 
0992 1635 RR = RMS_ERROR : OK now hook it back u up 
i 2445 1636 BRB SERVICE_101+2~ : This is first time only for the 
09A1 1638 ; This entry point is to service header AST's. 
O9A1 1639 ; 
O9A1 1640 
O9A1 1641 SERVICE_I01: 
OFFC O9A1 1066 -WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10, R11> 
5B 04 AC DO O9A3 164 MOVL 4(AP).RIM Get the RAB address 
5A ig AB DO O9A7 1644 MOVL RABSL_CTX(R11),R10 : ey the unit block address 
58 FS AF DE OQ9AB_ 1645 MOVAL SERVI 1 et the AST service routine addres 
28 AB O1AB CA 0 O9AF 1646 MOVL UETUNTSC “CuRHDR (R10) .RaBsL BF RIT}. : Set the transfer address 
57 0288 CA C 0985 1647 MOVZWL UETUNTSK_HEADER(R10) ,R7 ; Get the header size 
59 ggBA £4 D Boer 1648 MOVA UG TUNTSK. “HEADER+2(R10) ,R9 ; Get the header start address 
9 Se: SBF 1649 ADDL R7,R9 : Calculate the end address 
00000100 8F 59 F1 O9C2 1650 ACBL R9,#HOR_OUT_SIZE,- 
000D 01AB CA 9¢9 1651 ETUNTSC CURHDR (R10 0),10$ : Output header in chunks 
59 28 AB C2 09C 1636 SUBL2 dats RBF(R11) ,R9 ; If not enough header left for 256. 
22 AB O59)~=—s BO sC«OO9D2 =«i165 MOVW RABSW sz ee (R11) s veetoan set size to whats left... 
58 O9EB'CF DE 0906 1654 MOVAL ePaNICE _Io : tiland setup AST adr for data 
9DB 1655 10S: 
908 1936 SWRITE RAB = HE - 
908 165 SUC = (RB) 
908 1658 ERR = RMS_ERROR : Start the next header write 
04 O9EA 165 RET 
9EB 1660 ; 2 
9EB 1661 ; This entry point is to set up for non-header data transfers. 
9EB 166¢ : | 
9EB 166 
9EB 1664 SERVICE_102: 
| 
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VETTTYSOO VAX/VMS UETP DEVICE TEST FOR TERMINALS P-1984 01:36:0 AX/VMS Macro V04-00 Page 38 
V04-000 SERVICE_10 Mor See18Be beizeiee LoetP eRciuerrtysoo mar: 2% (8) 
OFF SEB 1665 gvone gnehe. R3,R4,R5,R6,R7,R8B,R9,R10,R11> 
5B 404 AC DO O9ED 1966 4(AP) R14 : Get the RAB address 
ort 186 $015 connect nie = = RNS ERROR Di ¢ te nee 10 ad 
; Disconnect to se mode 
04 AB 00000800 8F CA O9FE 1869 Bitte. OP saa , aio RABSL _ROP(R11) ; Set to record I0 for the data 
A06 1670 SCONN RAB = Ri 1) 
A06 1671 ERR ans. ERROR ; ox now hook it back u up 
-— "y 1676 BRB SERVICE_ 103+ ; This is first time only for the 
AiS 1674; 
“i 190? ; This entry point is to service normal data transfers. 
OAs 1899 
OA1 1678 SERVICE_103. 
OFFC pale 1679 » WORD “M<CR2,R3,R4,R5,R6,R7,R8,R9,RIO,R1I1> 
5B 04 AC DO OAI7? 1680 MOVL 4 (AP).RI11 : Get the RAB address 
SA 18 ae DO OAIB 1681 MOVL RABSL “CTX(R11), R10 ; Save the unit block address 
5 7C OAIF 1086 CLRQ R8& ; Clear the area 
O1A5 CA 83 OA21 108 SUBB3 UETUNT$B_HD_LEN(R10),- 
58 O1A4 CA OA 3 1684 UETUNTSB-LINE(R10), R& : Leave the non-header Line cnt 
58 58 58 11 7B QOA29 1686 EDIV acc Tors ie E,R8,R8,R8 ; Leave the CC_TBL index in R8 
57 045B°CF48 00 Once 1687 MOVL L+TCR8J,R7 ; Get the size table index 
57 57 9A QA34 1688 MOVZBL Clean off the garbage 
28 AB 0187 CA DE OA37 1689 MOVAL RAT -WRITE(R10) a ee RBF (R11) ; Set the new transfer adr 
22 AB O1AF CAG? BO OA3D 1690 MOVW UETUNTSK~CCTBL(RIO)ER 
0A44 «1691 RABSW A ; Set the transfer size 
2C AB O45C'CF48 DE OA44 1936 MOVAL CC_TBC+2CR8),RABSL_RHB(R11) ; Set the carriage control char's 
59 O1A7 CA 00 OA4B 169 MOVL UETUNT$W_WIDTH(R10),R9 ; Get the line Length 
59 D7 OASO 1694 DECL RY ; Move it over one byte 
O24C'CF 0187 CA49 90 OAS2 1695 MOVB UETUNTS$SK_WRITE(R10)CR9],SPARE ; Rotate the data pattern.. 
0187 CA 59 28 OASA 1696 MOVC3) R9,UETUNTSK_WRITE(R10),- 
0188 CA OASF 1697 UETUNTSK_WRITE+1(R10) “eee 
01B7 CA 024C'CF 90 OA6 1698 MOVB SPARE ,UETUNTSK_WRITE(R10) 3 
O1A4 CA 96 0A69 1699 INCB UETUNT$B_LINE (R10) : One more Line done 
01A4 CA 91 OA6D 1700 CMPB UETUNTS$SB_LINE(R10),- 
QO1A6 CA 0A71 1701 eats, “LENGTH(R10) : Is the page full? 
03 13° OA74 1786 BEQL ; BR if yes 
00B2 31 OA76 170 BRW 80$ ; Br if not 
OA79 1704 108: 
O2BA CA DE OA79 1705 MOVAL UE TUNTS$K_HEADER+2(R10) ,- 
CA OA7D 1706 UETUNT$L~ CURHDR(R10) Reset ahageer address 
26 08 05 €1 OA80 1707 BBC varnae cCRV CROL RABS tent R10) ) 508: if no scroll to clear 
28 AB —OA38'CF 43 pA 5 1708 MOVAL Wier ORIG Scr (R11); Set A reset scroll address 
OE 8B A8B 1709 MOVW LTRABSO_R ast ; Set the reset scroll Length 
OABF 1710 $PUT “ (R11)> 
ASF 1711 Ws = RMS oad : Reset the scroll region 
AIC rig SWAIT RAB = (RIT) Wait for the 1/0 to finish 
28 AB O01B7 CA. ODE OAS el? 208 MOVAL UE TUNTSK -WRITE(R10) ,RABSL _RBF (RTA) ; Reset the write address 
AAB 1715 SSETIMR_S DAYTIM = Pygsec.~ ; Pause in testing to give other 
QAAB at = 3: tests a chance to run 
ABA 171 SWAITFR -} EFN = #12 
2C 0002°CF 01 1 OAC at BBC #fEST OVERV,F R if we are done 
0B AA 01.—B8 ac 1719 ae BISB2 #UETUNTSM_ DONE. AGE TUNTSB_ FLAGS(RIOD eS + seeibe Set cur dene flee 
56 §60230°CF 000002350°8F ¢1 OACD 1554 ADDL3 #UNIT_LIST,UNIT_LIST,R6 ; Get the List header 


= 
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AD? 17 ; 40$: 
6¢ OB A6 0 €1 OAD? 17 BBC #UETUNTSV_DONE ,UETUNT$B_FLAGS(R6),90$ ; BR if any unit is not done 
6 g6 6 Ci QADC 1724 ADDL3 = RB, (ROB) ; Get the next unit block adr 
00000230'8F 56 D1 OAEO 1705 CMPL R6.#UNIT_LIST : ALL done checking? 
EE 12 OAE? 17 : BNEQ  40$ : BR if yes 
AE9 17 SWAKE_S ; Else its all_over with 
04 wre Vf 8 $08 RET ; Tha-a-Tha-a-Thats all folks 
10 AA 06 ne 1730 INCL UETUNTSL_ITER(R10) ; Bump iteration counter 
1F2°CF 06 OAFB 1731 INCL ITERATION > and test wide iteration count 
OC OB AA oe —1 AFC 17 ¢ BBC MUETUNTS$V_2PL UETUNT$B_FLAGS(R105 ,60$ ; Br if no 2 page Limit 
10 03 01 9801 17 CMPL #3, UETUNTSL_ITER(R10) ; See if 2 pages are out 
06 if BOS 1734 BNEQ 6$ : Br if not yet 
OB AA Q1 88 0807 1735 BISB2 #VETUNTSM_DONE , UETUNTSB_FLAGS (R10) ; Set the done flag 
CO 611 0B0B i7 $ BRB 30$ ; Stop testing 
OBOD 1737 60S: 
O1A5 CA 90 OBOD 1738 MOVB UETUNTS$SB_HD_LEN(R10),- 
O1A4 CA 0B11 1739 UETUNT$B_LINE (R10) ; Init line count 
0288 CA BO Q0B14 1740 MOVW UETUNT$K_HEADER(R10),- 
22 AB 0818 1741 RABSW_RS7(R11) ; Set RAB write size 
0100 8F 22 AB’ Bi OOBIA 17tg CMPW RABSW_RSZ(R11) ,#HDR_OUT_SIZE ; Check the size 
06 15 O0B20 174 BLEQ 70$ ; Br if small enough... 
22 AB 0100 BF 8B0 bess ete 70$ MOVW #HDR_OUT_SIZE ,RABSW_RSZ(R11) ; «.-else make it small enough 
FES2 31 0828 1746 BRW NEW_PAGE ; Start a fresh page 
0B2B 1747 &0$: 
0B2B 1748 $PUT RAB = UETUNTS$K_RAB(R10),- 
0B2B 1749 ERR = RMS_ERROR,- : 
0B2B 1750 SUC = SERVICE_103 ; Kick off the next 1/0 operation 
OB3E 1751 90$: 
04 OB3E 1752 RET 
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~SBTTL Timer Expiration Routine 


++ 
FUNCTIONAL DESCRIPTION: 
his routine will be called when the three minute pass timer expires. 

The number of pages output by each unit is checked. If less then two 
pages were completed the device must be very slow or hung. To force 
completion of the slow units the Line count is set to one less than 
the total page size. A two minute watchdog timer is then set - all 
units should finish unless they are oyna. If the wetehcos timer goes 
off an error message is cutput for all the units that di 


CALLING SEQUENCE: 
; Called via AST at SSETIMR expiration. 


INPUT PARAMETERS: 
NONE 


not finish. 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
; IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Sets a flag to indicate timer expiration. 


TIME _OUT: 
«WORD “M<R2,R3,R4,R5,R6,R7,R8,RI,RIO.RII> ; Entry mask 
BISW #TEST_OVERM,FLAG ; Set the test over flag 
ADDL WUNIT_LIST,UNIT_LIST,R6 ; Get the List header 


BBC #UETUNTSV_TESTABLE,- ; Br if unit is not testable 
UG TUNTSE FLAGS (R6) , 208 
CMPL #3 UETUNTSL_ITER(RO) 


10$: 


; 2 pages done? (starts with 1) 
BR i 


BLEQ : more than 2 pages are out 
3 «e- Must be a fast terminal 
SUBB3 = #1, UETUNTSB_LENGTH(R6),- ; Set Line count equal to page 
oe UETUNTS$B_LINE (RO) : ...length minus one 
ADDL2 (R6),R6 ; Get the next unit block adr 
ta! R6,#UNIT_LIST ; ALL done checking? 
n 


: BR if no 
; Every unit should be done 


BNEQ 
SSETIMR_S DAYTIM = 
ant ASTADR = within 2 minutes 


WATCHDOG_TIMER: ; We should never get here unless there is a hung device. 


TWOMIN, - 
WATCHDOG_TIMER 
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OFFC ; 3 ! 1} » WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,R11> ; Entry mask 
56 0230'CF 00000230' 8F C1 : ; } 18 108 ADDL3 #UNIT_LIST,UNIT_LIST,R6 ; Get the List header 
01 E1 BSF 1815 BBC #UETUNTSV_TESTABLE,- ; Br if unit is not testable 
63 OB A6 B91 1 16 veey ETUNTSU.b FLA nee Ue TOnTe 
0B 46 00 34 B94 181 BBS UETUNT$SB_FLAGS(R6),20$ ; BR if this unit is done 
OO98'CF 14 A6 B99 1 18 MOVZBU UET UNTST FIL Spey (R6) ,DEVBSC Setup device name Length 
15 A6 = 0098'CF 2 BSF 181 mMOVC DEVDSC, UETUNTST _FILSPC+1(R6),- Get device name 
0B7'CF OBAS 1820 DEV_NAME 
OBA8 1821 SFAO_S CTRSTR = TIMOUT_ERR_MSG,- ; Prepare error message 
BA 1 § OUTLEN = BUFFER PTR; = 
BAS 1 OUTBUF = FAO BUF,-= 
OBAB 1824 1 = #DEVDSC 
O1C6"CF D6 OBCI 18 5 L ERROR_ COUNT ; Bump the error count 
OOOC'CF DF OBCS 1826 PUSHAL BUFFER_PTR ; push error message 
p00F 908) 8F DD OBC9 1827 PUSHL #*xF0001 3 push arg count 
00741132 8F OD OBCF 1828 PUSHL Ayers TEXT! STS$K_ERROR : push the signal name 
O1C6'CF DD OBDS 1829 PUSHL ROR_ COUNT 3 «..and the error count... 
OOAO'CF DF OBD9 1830 PUSHAL BRaress NAME > 1..0Ur Own name... 
019006 8F DD OBDD 1831 L X10002 j «and the argument count... 
00748022 8F DD OBE 1336 PUSHL aye lee ty 51 rgheldeaae ERROR 3 «..and the signal name... 
00000000'GF 07 FB OBED 183 CALLS G*LTB$S! t report the error 
0002'CF 0040 BF As OBFO 1834 cia BISW2 +t iS0u7 BERRNS FLAG : Set time out error flag 
56 66 CO OBF7 1836 ADDL2 (R6),RS ; Get the next unit block adr 
00000230'8F 56 D1 OBFA 1837 CMPL R6,MUNIT_LIST ; ALL done checking? 
8C 12 OCO1 1838 NEQ 108 : BR if no 
0c03 1839 SWAKE_S 
04 OQOCOE 1840 ET 
OCOF 1841 
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' 
' 
! 
' N-3 ADDITIONAL! Signa al Array 
' LONG WORD Anes; 

! 

' 

v 


; IMPLICIT INPUTS: 
: NONE 


: 184 + «SBTTL System Service Exception Handler 

F ; FUNCTIONAL DESCRIPTION: 

F This routine is executed if a software or hardware exception occurs or 

f if a LIBSSIGNAL system service is used to output a message. 

F ; CALLING SEQUENCE: 

; ; Entered via an exception from the system 

F ; INPUT PARAMETERS: 

: ; ERROR_COUNT = previous cumulative error count 

F AP <---> ! 2 ! 

F ! eeceeceeeecoocon ' 

4 SIGNL ARY PNT } 

F MECH ARY PNT 

; i eal 4 ee eS oe Resp sii 

F 8 ' ececeoeecescoca ! ! 

: 8 ESTABLISH FP 

f DEPTH : Mechanism Array 
See H 

a: ELEC | 

F : ! R1 ! v 

F ! et ew em See ee ee ' —we eee ree 

F 

F 

F 

F 18 

: 8 

f is 

F 18 

F 18 

F 

F 

F 

F 

F 

F 


8 8 oh Sh 8 8 8 8 838383 3838333333 23332322 


; OUTPUT PARAMETERS: 
; NONE 

; IMPLICIT OUTPUTS: 
; NONE 


; COMPLETION CODES: 
SS$_NORMAL if it's a UETP condition or RMS error. 
Error status from exception, otherwise. 


; SIDE errectss 
; May branch to ERROR_EXIT. 
May print a message. 


OOO OO 00000909 09 00 09 09 909 SI IN NN NN NNSA PAA AAA AAA MAMI & EE 
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V04- System Service Exception Handler “SEP=-1984 04: UETP. SRC §GETTTYSO MAR; 1 (16) | 
COF 1900 SSERROR: 
OFFC 3H 13 1 WORD “M<CR2,R3,R46,R5,R6,R7,RB,R9,RIO,R11> ; Entry mask 
i 
C11 (19 : SSETAST_S ENBFLG = #0 ; Disable AST delivery | 
4 DD OCIA 13he PUSHL #1 ; Assume ASTs were enabled 
50 9 re cic 1905 CMPL S“#SS$_WASSET,RO ; Were ASTs enabled? 
a CiF 1286 BEQL 10$ ; BR if they were 
6—E D4 : 1 13 108 CLRL (SP) ; Set ASTs to roasie disabled | 
1 $ | 
C ; 1908 SSETSFM_S ENBFLG = #0 ; Disable SS failure mode 
01 DD OCec 1910 PUSHL “#1 ; Assume SS failure mode was enabled 
50 09 ODI C2E 1911 CMPL “#SS$_WASSET,RO ; Was $5, oe mode enabled? 
02 13 0C31 1316 BEQL 0$ ; BR if i 
6—E D4 ; } 1217 208 CLRL (SP) : Tee ss fellas mode to remain off 
56 04 AC 0c35 1915 MOVL CHFSL_SIGARGLST(AP),R6 ; Get the signal { errey petorer 
59 04 A6 7D OC39 1916 MOVQ CHFSL-SIG_NAME(R6), R9 : Get NAME in R9 and ARG! in R10 
10 Be D 1917 CMPZV = #STSSO_FAT a ; Is this a message from LIBSSIGNAL? 
0C CSF 1313 #STS$S-FACN 
00000074 8F 59 0C40 191 R9 pue TPS FACILITY 
14 i 0646 1920 BNEQ 30$ : BR if this is not a UETP exception 
66 02 C2 O0C48 1921 SUBL2 #2,CHFSL_SIG_ARGS(R6) Drop the PC and PSL 
OC4B 19 § SPUTMSG_S MSGVEC™= CAFSL_SIG anckcRes” ; Print the message 
21 11 Been + Z 305 BRB 40$ ; Restore ASTs and SS fail mode 
59 0000045C BF 01 $34" 1925 CMPL #SS$_SSFAIL,R9 ; RMS failures are SysSvc failures 
32. 12 OC63 1926 BNEQ 50$ ~ ; BR if this can't be an RMS failure 
ED 0QC65 1927 CMPZV eet sey. FAC -NO. - 3 is it an RMS failure? 
Sh 0C67 1928 TS$S"FAC_N 
01 «5A 0C68 1929 R10 ARASS. FACILITY | 
12 OC6A 1930 BNE ; BR if not : 
5A ‘ea er cA Oc6c 1931 Bic 2 #*XF0000000,R10 ; Strip control bits from status code 
08 A v2 9 4 1336 MATCHC Odi ie S16_A ARG1(R6),- ; Is it an RMS failure for which... 
004D' F 0C78 1934 NO_RMS_AST_ TABLE 3 ...mo AST can be delivered? 
1A 3613 «O0C7B «(1935 BEQL 508 ; BR if so - must give error here 
0C7D 1338 40$: 
01 BA OC7D 133 POPR #*M<RO> ; Restore SS failure mode... 
C7F 1938 poe Lere., Be Sats = RO . Mee 
01 BA OC88 1939 POPR <RO> ; Restore AST enable... 
C8A 1940 SSETAST s ENBFLG = RO ; 
eo UMmkltéi«ia Begs 1941 MOVL “~S*#SS$_NORMAL ,RO > Supply a standard status for exit | 
04 34) 13e8 508 ; Resume processing (or goto RMS * ERROR) | 
O1CA'CF 59 00 §eee 1944 MOVL R9,STATUS 3; Save the status | 
58 D4 OC9C 1945 CLRL ; Assume for now it's not SS failure | 
59 0000045C + D1 43 108 CMPL #SS$_SSFAIL,R9 ; But is it a System Service failure? 
em * Hh 194 BNEQ 70$ ~ ; BR if not - no special case message 
CA? 1948 SGETMSG_S MSGID = - ; Get SS failure code associated text 
OcAz 1949 MSGLEN = BUTEER PTR,- 
CA? 1950 BUFADR = FAQ_B F,- | 
CA? 1951 ptASs = | 
CA? 1326 OUTADR = $6’ BLOCK 
O1F7°CF 3 CBE 195 TSTB MSG_BLOCK Ken ; Get FAO eae count for SS failure code 
7 3 CC2 1954 BEQL ; Don't up GETMSG if no SFAO args... 
OOOC*CF OF cc&é «1955 4 sy BUFFER_PTR ; ..-else build up.., 
01 dD OCCB 1956 PUSHL #1 3 «+. message describing... 
| 
| 
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Ss Service E Handl SEP=1984 04:26:4 ETP. SRCJUETTTYSOO.MAR; 1 16 
00741130 DD OCCA 1957 PUSHL *y TPS$_TEX ; .eewhy the System Service failed 
00 FO OCD 1328 INSY #sTS$v SEVERITY : Give the message. ss 
39 CD$ 19 A SEVERITY (SP ps : .+.the correct severity code 
VL ; Count the number of args we pushed 
DO OCDS 1960 MO C f 
 Otba 198¢ “<< | 
DD QOCDA 196 PUSHL R10 ; Save SS failure code 
58 dO aes Sc) 708 MOVL #1,R8 ; Count the number of args we pushed 
g6 C5 cor 1398 MULL #4, CHFSL_SIG_ARGS(R6),R7 ; Convert longwords to bytes 
E Ss CE3 196 SUBL S ; Save the current signal array... 
04 A6 CE6 1308 Movc R7, CHFSL_SIG_NAME(R6),(SP) ; ...0n the stack 
7 66 ¢! CEB 196 ADDL 
1 OCEF 1970 BRW ERROR_ 


RB, CHF SLs 1° “ARGS(R6),-(SP) ; Push the current arg count 
| 
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-SBTTL RMS Error Handler 


+4 
FUNCTIONAL DESCRIPTION: 
: This routine handles error returns from RMS calls. 


CALLING SEQUENCE: 
Called by RMS when a file processing error is found. 


INPUT PARAMETERS: 
The FAB or RAB associated with the RMS call. 


IMPLICIT INPUTS: 
NONE 


oOo 
nn 


OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
; Error message 
; COMPLETION CODES: 
NONE 


SIDE EFFECTS: ; 
: Program may exit, depending on severity of the error. 


DOOCOCODOOCSCOC OC OOOOOO0O OOWDWDWWWOOWOO YN NNN 


DOO ee re ee re rn re re rn rn re re re rn rr oo 
CNAME WO ODD NAUSEA 0 OD NAME WWI SO ODA UE WN O OD NA UNE WW O OONOAUE WT 


DOCOCOCOOCOCOCCOCOCOCOCOCOOC COCO OCOCOOCOC OOOO OCOOOOCOOOOCOOOO: 
SOVCVVC CVG GV GAH OMAAAAAAADAOIAOVAAODOAAAOHOOAOOOHOHOOOOO 
DOOCCOCCVGDOOVCOOSCOBOOOOOOOVOOovowvovowvowowvovowvowvaowowowvJowvowowvowowvowvov0ono 
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: RMS_ERROR: 
OFFC f -WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,RIO,R11> = Entry mask 
56 04 AC 00 4 MOVL 4(AP) ,R6 ; See whether we're dealing with... 
66 03 91 & CMPB «=: #FABSC_BID,FABSB_BID(R6) ; ...a FAB or a RAB 
16 12 2 BNEQ 108 ; BR if it's a RAB . 
57 O2C7'CF ODE D MOVAL FILE,R7 3; FABespecific code: text string... 
58 56 00 é MOVL R6,R8 : ..address of FAB... 
Oc ASD PUSHL FABSL_STV(R6) : ..eSTV field for error... 
08 A6 =—OOD 8 PUSHL FABSL_STS(R6) 3 «STS field for error... 
OICA'CF 08 A6~ DO 08 1 MOVL FABSL_STS(R6) , STATUS 3 «and save the error code 
| ee i] : 108 SRB COMMON ; FAB and RAB share other code 
57 O2D3'CF ODE 13 1 MOVAL RECORD,R7 3; RAB-specific code: text string... 
58 3C A6 DO OD18 201 MOVL RABSL_FAB(R6).R2 > ...address of associated FAB... 
C A6- «ODD 1C 8) PUSHL RABSL_STV(R6) ; «STV field for error... 
8 A6 OD 1F 1 PUSHL RABSL_STS(R6) ; ..-STS field for error... 
O1CA'CF 8 Aé6 =O 4 : : Neenat MOVL RABSL_STS(R6), STATUS 3 «and save the error code 
5A 34 A8 9A OD 1 MOVZBL FABSB_FNS(RB),R10 ; Get the file name size 
Dec SFAO_S CTRSTR = RMS ERR STRING,- ; Common code, prepare error message... 
D2Cc OUTLEN = BUFFER_PTR,- 
Dec OUTBUF = FAO_BUF,- 
D2C P1 = R7,- 
Dec Pg = R16,- 
Dec P = FABSL_FNA(R8) 
OOOC'CF DF QD46 PUSHAL BrreR Pre 3 «.-and arguments for ERROR_EXIT... 
et DD OD4A PUSHL @ 3 wes 
00741130 8F DD OD4C PUSHL #UETPS_TEXT gy wes 
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EF OD 9 EXTZV  #STS$V 

D 0 #STS$S 

D STATUS 

88 0D BISB2 RY, (SP 
D OD5¢ PUSHL #5 

1 OD5€ 4 BRW  - ERROR_ 


26:40 
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v04-000 CTRL/C Handler SEP=1984 04:26:4 UETP.SRC JUETTTYSO MAR; 1 
po! § -SBTTL CTRL/C Handler 
D61 § 3 FUNCTIONAL DESCRIPTION: 
+3 ip : This routine handles CTRL/C AST's 
Dé61 41 ; CALLING SEQUENCE: 
Dé61 tg 3 Called via AST 
b61 43 ; 
D61 44 ; INPUT PARAMETERS: 
D61 45 ; NONE 
Dé61 <8 ; 
+43 47 ; IMPLICIT INPUTS: 
D61 48 ; NONE 
0D61 Ben 3 
0D61 50 ; OUTPUT PARAMETERS: 
0061 2051; NONE 
0D61 03¢ 3 
0D61 053 ; IMPLICIT OUTPUTS: 
0D61 054 ; NONE 
0D61 055; 
0D61 056 ; COMPLETION CODES: 
0D61 O57 : NONE 
0061 2058 ; 
0D61 059 ; SIDE EFFECTS: 
0D61 060 ; NONE 
0061 2061 ; 
0D61 soos gee 
+49 06 
Dé61 064 CCASTHAND: 
OFFC O06} Boe WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,RII> ; Entry mask 
OOB3'"CF DF OD63 2067 PUSHAL CNTRLCMSG : Set message pointer 
1 DD OD67 2068 PUSHL #1 arg count 
00741130 8F DD 0D69 069 PUSHL PUETPS. TEXT! STSS$K _WARNING a §. signal name 
DD OD6F 2070 PUSHL #0 G7 sets an abnormal termination 
OOAO'CF DF 0D71 071 PUSHAL PROCESS_NAME poses 
DD 0D75 O76 PUSHL #2 
007410E0 8F DD O0D77 07 PUSHL #UETPS_ABENDD!STSSK “WARNING: : 7 
00000000'GF 07 FB OD7D 2074 CALLS #7,G*LTBSSIGNAL : Output the message 
DO OD84 075 MOVL #<STS$M INHIB_MSG!~ : Set the exit status 
0D85 B78 S$S$_CONTRO 
0D85 207 SFesKe SUCCESS #STSSK _WARNING>, = 
O1CA'CF 10000650 8F 0085 2078 STATU P 
0002°CF 0082 8F A8 OD8D $4. BISw2 Pest _OVERM!CTRLC_SEENM,FLAG ; Set termination flags 
04 0094 80 RET 
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4 : -SBTTL Error Exit 
D9 FUNCTIONAL DESCRIPTION: 
D This routine prints an error message and exits. 


me peevemves 
Vx error status value,STATUS 
Pustix error specific information on the stack 
PUSHL current erpaens count 
BRW ERROR_EXIT 


INPUT PARAMETERS: 
Arguments to LIBSSIGNAL, as above 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
Message to SYSSOUTPUT and SYSSERROR 


IMPLICIT OUTPUTS: 
Program exit 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


HSE PVPVPV DV PV PU PUPUSV SUSU SUSU USES TUSSI VSS ISSA 
Be Be Be Be Se Be Be Se Se Se Se Be Be Bs Oe Se Se Se Ss Se Se Se Se Se Se Oe Se Se Se 


OOOCOCOCCCOOCCOOOCOCOSCOOCOOOCOCOCOOOOOOOOOOCOOOOO: 
Oe ad dd od od dd dd 3 3 BOO OOO OOOO OCOOOCO OOOO 


AANAN AAAI PDIP IPINPINPINININD 2 OPO POO OOOOOOCOCOCOOOOOO OO OWWOMWMomocmc 


CONIA EWR SO OD NAME WIN =O OO NAME WN 9 OD NA NEW  O ODN NEW SO OONOUS Wr 
a 
a 


ERROR_EXIT: 
SSETAST_S ENBFLG = #0 ; Disable AST's 
15 0002"CF 04 £0 &BS “#BEGIN_MSGV,FLAG,10$ : BR if a al msg oh ready printed 
D4 CLRL -(SP) ; Set the time stamp flag 
OOOF'CF OF PUSHAL TEST_NAME ; get the test name 
0 DD A USHL ge ush the argument count 
00741039 8F DD QDAC PUSHL #UETPS Be Sines teeK., succéss: Set the message code 
00000000'GF 04 FB 43 108 CALLS Pe G°LIBSSI : Print the startup message 
O20E'CF O08 8E€ C1 ODB9I ADDL3 (SP)+,#8,ARG_COUNT ; Get total # args, pop partial count 
O1C6"CF 06 ODBF INCL GBROR “COUNT ; Kee running error count 
00 OD dCs PUSHL ; Push the time parameter 
OOAO'CF ODF QDC PUSHAL PROC SS_NAME : Push test name... 
BO obcs or DD ODC9 PUSHL #* -++arg Count... 
007410E2 BF DD ODCF PUSHL #UETPS_ABENDD!STSSK ERROR -.-and signal name 
O1C6"CF DD ODDS PUSHL ERROR COUNT ; Finish off arg List... 
OAO' CF DF DDI PUSHAL peor ESS ON NAME poses 
900! 00 or DD bee PUSHL #*X!1 2 
0074 3 F DD ODE PUSHL #UETPS_ERBOXPROC!STSS$K _ERRO “py for error box message 
00000000 ' GF O20E 'CF FB 43 CALLS ARG_COONT,G*LIBSSIGNAL™ ; ROR i + tch 
O1CA'CF DS ODF TSTL syatus ; Did we exit with an error code? 
9? \s DF BNEQ 0$ ; BR if we did . 
007410E2 BF OD DF MOVL #UETP$_ABENDD! STSS$K_ERROR, - ; Supply a generic one otherwise 
O1CA'CF DFE STATUS 
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g154 #STSSM_INHIB_MSG,STATUS ; Don't print messages twice! 
EXIT_S STATUS” Exi 
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< 04:36:60 v6 


-SBTTL Exit Handler 
s routine handles cleanup at exit. If the — spercgt none is 
to ‘‘ONE'’, the routine will update the te tis 
depending on the UETUNTSM_ TESTABLE Lag state, in the 


UVETUNTSB_ FLAGS field of the unit block for each unit for the device 
under test. 


; CALLING SEQUENCE : 


Invoked automatically by SEXIT System Service. 


; INPUT Sry igen 


ATUS contains the exit status. 
FLAG has synchronizing bits 
DDB_RFA contains the RFA of the DDB record for this device in UETINIDEV. 


IAP ICTY it (Sh 
UNIT_LIST priass to the head of a doubly acne circular List of unit 
locks for the device under test 


; OUTPUT — 


; IMPLICIT OUTPUTS: 


Various files are de-accessed, the process name is reset, and any 
If the wb synchronization with Bs bir EVO} is carried out. 

If the OF logical name is equated to ''ONE’, the routine will update 
the t a9 n the UETINIDE DAT tite depending on the 
UETUNTSH. tes ABLE flag state in the UETUNT 8. FLAGS field of the unit 
block for each unit for the device under test. 


; COMPLETION CODES: 
; NONE 


; SIDE EFFECTS: 
NONE 


EXIT_HANDLER: 


«WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Entry mask 


SSETSFM_S ENBFLG = #0 ; Ture eff aaytte* Service failure mode 
SSETAST— _S ENBFLG = #0 ; Disable 
$TRNLOG_S LOGNAM = MODE,- ; Get the run mode 
RSLLEN = : BUFFER. PIR, 

BICB2 #LC_BITM, BUFFER” ; Convert to upper case 
CMPB #°A70/ BUFFER ; Is this a one shot? 
BEQL 1 ; BR if yes. 

; BRW END_UPDATE 3 «else don't update UVETINIDEV.DAT 

gsare TO_UPDV,FLAG,20$ ; Only update if it's safe 
208 BRw UPDATE ; Else forget it 
"BBC #SELF_TESTV.FLAG, 308 : Is this a self test? 
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v04-000 Exit Handler =SEP=1984 04:26:4 UETP.SRCJUETTTYSOO.MAR; 1 ae! 
OOAF 31 £6) 9 308 BRW END_UPDATE ; BR if so = we don't access UETINIDEV | 
SA O33C'CF £64 ; MOVAL INI_RAB,R10 : Set the RAB address 
1E AA Oe E69 MOVB #RABSC_REA,RABSB_RAC R10} ; Set RFA mode | 
10 AA 0380'CF 6 EgD 4 MOVC3 #6,DDB_RFA,RABSW_RFAC(RI0O) ; Set RFA to DDB Line 
E74 5 $GET RAB = TRIOS : 60 back to the DDB record 
75 50 9 QE7D 88 BLBC RO,UPDATE FAILED ; If failure then forget it 
1E AA 00 0 O€80 MOVB_ #RABSC_SEQ,RABSB_RAC(R10) ; Set back to sequential mode 
5B =0230'CF 00000250" 9e c} : 4 8 ADDL3 #UNITCIST UNIT _CIST.R1I1 é Set the unit block List header | 
§ U 
Sop 10 UNIT_LOOP: 
01 +€1 OE8 11 #UETUNTSV TESTABLE - ; BR if this unit is not testable 
02 0B AB £9 19 UETUNT$SB_FLAGS(R115,10$ 
59 606 be 99 17 108 INCL RO ; Count testable units 
5B 68 co 4) 15 ADDL2 (R11),R11 ; Next unit block ‘ 
00000230' 8F : f Rene 16 aa! fine ; ore ye outs circle in the list? 
£3 8 OEA3 18 TSTL R9 ~ ; Any testable units? 
12 12 Q&AS 3519 BNEG -208 3; GA 4? yea... | 
OO18'CF 4E BF 90 OQEA7 0 MOVB #*A/N/ ,BUFFER+4 3; .-.else disable the DDB record... 
OEAD 1 SUPDATE RAB = (R10) 3; «here 
3¢ 50—siéE BERS $$ 20$ LBC RO,UPDATE_FAILED ; If error then forget it 
5B 68 CO OEB9 4 ADDL2 (R11),R11 ; Next unit block ; : | 
00000230'8F 5B D1 pepe 5 CMPL R11,#UNIT LIST ; Are we full circle in the list? 
4—E 13 O€C 6 BEQL END_UPDATE ; BR if yes 
OECS 27 $GET RAB = (R10) ; Get a record 
24 50 €E9 OECE $56 BLBC RO,UPDATE_FAILED : If error then forget it 
0014°CF 20 BA QEDI $3 BICB2 #LC_BITM,BUFFER ; Convert to uppercase 
0014'CF 55 8F 91 OED6 230 CMPB #*A7U/ ,BUFFER ; Is it a UCB record? 
35 12 QEDC 231 BNEQ END_UPDATE ; BR if not | 
01 EO QEDE $38 BBS #UETUNTSV_TESTABLE,- ; BR if this unit is testable... 
D6 OB AB peeg 5$% ETUNT$B_FLAGS(R11),20$ 
OO18'CF 4E BF 90 4 $$te rs cane Bory ens 3; ...else disable the UCB record... | 
s 3 ..ehere 
C4 50 =«2«€B aee8 § 6 BLBS RO,20$ : Look at the next record if no error 
OEF 7 UPDATE_FAILED: 
OC AA DD OEFS 8 PUSHL RABSL_STV(R10) ; Do a simple message... 
50 OD pers 39 PUSHL R 3 ...to tell of the failure 
fereteh Db OEE 39c) ma he 
00 EF OFOO $s EXTZV #STSSV_SEVERITY,- ; Copy the severity from RMS status... 
mf 50 F F 4 4 #STS$S_SEVERITY,RO,-(SP) 
6E 00741130 BF CB OF 44 BISL2 aye TeS TEXT, (SPS : ...to our message 
00000000'GF 05 FB FO 49 “es uppageees #5,G*LTBSSIGNAL 
00 DD OF! 23 sf PUSHL #0 ; Set the time flag 
OOOF'CF ODF OF1 $8 PUSHAL 15 St Ane ; Push the test name 
DD OFI9 4 PUSHL @# ; Push arg count : 
EF OF1B 50 EXTZ¥V #STS$V_SEVERITY,- ; Push the proper exit severity... 
FID 2251 #STSS$S~SEVERITY,- 
7E O1CA'CF Fl 26 STATUS,=-(SP) 
6€ 00741080 04 cs : i piste ZYETPS ENDED. (SP) ; ...and use it in our message code 
51 E dO F2B 38 MOVL SP,R1 
Fee 56 SPUTMSG_S MSGVEC = (R1) ; Output the message 
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Vv “O08 Exit Handler g-36F 71382 By 38: 28 YUETP. SRC Dery MAR; 1 . (38) v00 
F3 7 SDISCONNECT RAB = INI_RAB ; Disconnect the RAB from the FAB 
F4 § $CLOSE FAB = INI- j* : Close the file 
re SSETPRN_S PRCNAM = ACNT_N : Reset the process name 
OD 0002'CF 6 —1 F F 60 BBC “#TIMOUT ERRV, PLAC. 4 $ ; BR if no units hun 
0 OD fe 61 PUSHL # ; We have a hyng unit = cancel all 53 
O212°CF DF OF66 86 PUSHAL RMSRUNDWN_BUF ; image and indirect I/0 so we can 
Q00000000'GF 02 FB 4 o7 108 CALLS #2,G*SYSSRMSRUNDWN 3; exit without hanging 
04 OF71 65 RET ; That's all folks! 41 
at 96 
OF7 6 END UVETTTYSOO 
50 
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NAME 
SET 
grsev 
BUFFER_PTR 
SIZE 
5 
SIG” 
CMsG” 
RFA 
CTRLNAME 
SPL 
“DEVCHAR 
“DEVDEPEND 
pOEVBUF S1Z 


Y 
$L 
$w 


CCASTHAND 
TBL 
TBL 
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BEGIN 
BUFFE 
Co. 
cc 
CHF SL 
CNTRL 
DOB 
DEA 
DEVS 


ACNT 
ALL 
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FILE 

FIND IT 
FIVESEC 

FLAG 
FORM_FEED 
FOUND _IT 


HEAD-CTRSTR 
HEAD-LENGTH 


E 
NADDRESS 
INIDEV UPDERR 


10$_SETMODE 
10$"WRITEVBLK 
ITERATION 
LA11 
LA11_DATA 
LA120 
LA120_DATA 
LAl 
LA180_DATA 
LA34 

LA36 
LA36_DATA 
LA38 

LAX 
LAX_DATA 
LC_B1™ 

LF 

LFCR 
LIBSSIGNAL 
LP11 
LP11_DATA 
MAX_BEV_D 


POD 

MSG_BLOCK 

NAME_LEN 

NEW_RODE 

NEXT TTY 

NOSPOOL 

NOUNIT SELECTED 
TR E 
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CESS_NAME 
PROCESS-NAME_FREE 
PROC_CONT_NAME 

D 

$ 

$ 


RMS$_FAB 
RMS$_FACILITY 
RMSRONOWN_BUF 
RMS_ERROR 
RMS-ERR_STRING 
NOWN_BUF 
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4 UETP.SRCJUET 
000005A3 R 5 
Kkkekeee x 5 
8 ats: R 3 
00 
QOOTFA R 83 
5 195 R 
0 $60 R v 
88 07 R 0 
8 0019 
QOOA0 R 03 
0000008 
8 8 908 Q 3 
59 R ¢ 
444 40 R 0 
0000034 
4 Ht 
0000001 
0000044 
00000002 
44444 
0000001 
BRO hO NSS 
0000030 
00000028 
0000002C 
00000004 
00000008 
BeofoaeS 
0000800 
00000000 
00000008 
QOOOOOTE 
00000010 
00000022 
QOOOOIEA R 03 
44 9h 34 R 03 
00000203 R 02 
00000028 
00000489 R 05 
Rekeeeee x 02 
Reeeeeee x 02 
eekteeee x 02 
eeeteeee x 02 
00000001 
eeeeeeee K Oe 
00000212 R 0 
R Oe 
RO 
R 02 
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0) 


SELF_TESTV = 003 SYSSINPUT 00000061 R : 
SERVICE_10 R 5 SYSSMGBLSC ateenere GX 
SERVICE-101 9A1 R 5 SYSS$OPEN ateneeee GX 5 
SERVICE=10¢ 00 He: R 5 SYS$PUT teeeeeee GX 05 
ERVICE-I0 06 Ai5 R 5 SYSSPUTMSG keeteeee GX 5 
SET_DEVBEP 00007D4 R 5 SYS$Q10W aeeeeeee GX 5 
SHRS$_ABENDD = $ 19 SYSSRMSRUNDWN teeneene 5 
SHR$_BEGIND = 1 SYSSSETAST aeeeeeee GX 05 
SHR$_ENDEDD ES 06 019 SYSSSETIMR aeeeeeee GX 5 
SHR$_OPENIN = 00001 SYSSSETPRN aeeeeeee GX 5 
$"TEXT = 000011 SYSSSETSFM keeeeeee GX 5 
1ZE-TBL 90005 R 02 SYSSTRNLOG eeeeeeee GX 5 
SIZE-TBL_LEN = 00 0 SYSSUPDATE aeeeeeee GX 5 
PARE 000024C R 03 SYSSWAIT eeeeeeee GX 5 
PL_UNITM = 0000008 SYSSWAITFR eeeeeere GX 03 
SPL"UNITV = 0000000 SYSSWAKE aeeeeeee GX 5 
S$" ABORT = 0000002C SYSSWRITE aeeeeeee GX 05 
S$%_BADPARAM = 00000014 SYSIN_FAB 90000258 R 03 
©S$_CANCEL = 00000830 SYSIN-RAB 90000 Ag R 03 
5S$_CONTROLC = 00000651 TERM_TTMLST 00 908 R 02 
“NORMAL = 00000001 TERM_NAMES 000049E R 02 
SS$_NOSUCHSEC = 00000978 TERM TYPE CNT = 0000001 
SS$_SSFAIL = 0000045C TESDEV_TBC 9000054 R 03 
Ss$~ WASSET = 00000009 TESDEV-TBL_END = 00000640 R 0 
SSERR OOOOOCOF R 05 TEST_NAME OOOOOOOF R 02 
Ss SYNCH_EFN = 00000003 TEST_OVERM = 00000002 
STATUS 000001CA R 03 TEST_OVERV = 00000001 
STRSUPCASE tteereee TEXT BUFFER = 00000084 
STS$K_ERROR = 0000000 THREEMIN 00000297 R 02 
STS$K_INFO = 0000000 TIMED_OUT QOOO06DE R 05 
STS$K_SUCCESS = 00000001 TIME_TT 9900046¢ R 05 
STS$K WARNING = 00000000 TIME—OUT OOOOOB3F R 05 
STSSM_ INHIB MSG = 10000000 TIME ~OUT_MSG 90000 OC R 02 
STS$S"F = 6000000¢ TIMOOT_ERRM = 00000040 
STS$S ~SEVERI TY = 0000000 TIMOUT-ERRV = 9000006 
STS$V~FAC_N = 00000010 TIMOUT-ERR_MSG 0000234 R 02 
STS$V ~SEVERITY = 00000000 TSD_SIZE = 90000600 
SuC_ERIT OO00006F1 R 05 TTS$A_LOWER = 00000080 
SUPDEV GBLSEC 90000020 R 0¢ TT2$M_ANSICRT = 01000000 
FAB 00000388 R 0 TTCHAN 90000000 Q 03 
SVSSASSIGN eeeeeeee GX 05 TWOMIN 60000 FR 02 
SYSSCANCEL eeeeeeee GX 5 TWOSEC 900 AF R 02 
SYSSCANTIM eeeerere GX 5 UETP = 00740000 
SYSSCLOSE eeeeeeee GX 5 ETP$_ABENDD = 00741060 
SYSSCONNECT eeeetere GX 5 BORTC = O748 
SYSSCREATE eeteeeee GX 5 UETP$~BEGIND = 2410 | 
SYSSCRMPSC eeeeerer GX 5 UETP$_DENOSU = 0748 
SYSSOCLEXH eeeereee GX 5 UETP$"DEUNUS = 0074819A 
SYS$DISCONNECT eeeereee GX 5 UETPS$_ENDEDD = 00741080 
SYSSEXIT eereeere GX 5 UETP$_ERBOXPROC = 00748 ¢0 
SYSSEXPREG eeeeerer GX 5 UETPSTFACILITY = 900 4 
SYS$FAO eeteeeee x 5 UETPS_OPENIN = 4 
SYSS$GET eeeeeeee GX 5 UETPS TEXT = 007411 | 
SYS$GE TDEV eeeeeeer GX 5 UETTTYSOO 6 RG 05 
SYS$GETDVI eenerere GX 5 UETUNT$B_FLAGS = 8 
SYSS$GETMSG eeeeeeee GX 3 UETUNT$B_HD_LEN = 1A | 
SYSSHIBER eeeeeeee GX UETUNTSB-LERGTH = 1A6 | 
| 
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UNKN~PREAMBLE 0 
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WATCHDOG_TIMER 


Psect synopsis 
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H i _Psect synopsis a 


PSECT name Allocation PSECT No. Attributes 
, 2, 44! ( a 8 £30 NOPIC USR 
$ABSS$ 0000000 ( -»> O1¢ 1.) NOPIC  USR 
RODATA $F 8 ( 3080.) ¢ ( ¢°} NOPIC USR 
RWDATA 00004 ( 1132.) ( 3.) NOPIC  USR 
SRMSNAM 44g ( -) 046 ¢ 4.) NOPIC  USR 
YS QO00F ( 3954.) 5 ¢( 5.) NOPIC USR 
doe mew nmran mr aer ers anromeracn senna 
! \ Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 8 00:00:00.09 00:00:01.15 
Command processing 108 BB: 0:00.74 is Bot 44 
Pass 1 714 0:00: 3-9 0:01:05.94 
Symbol table sort 1 bs STS 9 00:00:05.85 
Pass 2 986 00:00:08.33 es OO 
Symbol table output 5 Sb S84 SE 00:00:00.5 
Psect synopsis output 6 0:00:00.0 00:00:00.03 
Cross-reference output 0 Shs She 5 Boe Re “80 
Assembler run totals 1894 00:00:42.36 00:01:38.90 


The working set Limit was 900 pages. 


267 source Lines were read in Pass 1, producing.® 
1 pages of virtual memory were used to define 63 macros. 
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Macro library name 


ant tSy3-¢ Mang Sry 6 
5 


$255SDUA SYS.OBJJLIB.MLB;1 

$255$DUA SYSLIBISTARLET.MLB;2 
TOTALS (all libraries) 59 
2145 GETS were required to define 59 macros. 


There were no errors, warnings or information messages. 
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172877 bytes (338 pages) of virtual memory were used to buffer the intermediate code. 
There were 100 pages of symbol table space as ocetee to hold 1868 non-local and 69 local symbols. 
object records in Pass 2 


RD 
RD 
RD 
RD 


MACRO/LIS=LIS$:UETTTYSOO/OBJ=OBJ$:UVETTYYSOO MSRC$:UETTTYSOO/UPDATE=(ENHS$:UETTTYSOO) +EXECML$/LIB+LIB$:UETP/LIB 
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NOWRT NOVEC 
WRT NOVEC 
NOWRT NOVEC 
WRT NOVEC 
WRT NOVEC 
NOWRT NOVEC 
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